000
19.03.2006, 23:48 Uhr
etech
|
Hi,
bin gerade etwas am VBA coden, jedoch überhaupt nicht mehr firm :-(....Die Meisten Sachen habe ich schon hinbekommen, jedoch nicht ergebnisorientiert :
ich soll eine Tabelle nach bestimmten Datumsintervallen durchsuchen und dann von den Intervallen Teilsummen bilden, jedoch gibt es Zeilen, die herausgefiltert werden sollen und separat berechnet werden sollen..Die herauszufilternden Zeilen kann ich bereits ausfindig machen bzw. hole ich mir die Tabelle in eine Temp-Tabelle und sortiere jene nach Datum..
Meine Frage : wie kann ich die Zeilen, die den Teilstring enthalten ausschneiden und dann in eine bereits angelegte Tabelle/Blatt einfügen ?
The Code für die herauszufilternden Zeilen :
Sub Find_SE_SZ()
Dim teilstr1 As String
Dim teilstr2 As String
Dim i, j, k As Integer
Dim string_temp As String
Dim test, test2 As Integer
teilstr1 = "SE"
teilstr2 = "ZF"
j = 0
k = 0
For i = 1 To 1000
string_temp = Tabelle7.Cells(i, 8)
test = StrComp(string_temp, teilstr1)
test2 = StrComp(string_temp, teilstr2)
If test = 1 Then
j = j + 1
End If
If test2 = 1 Then
k = k + 1
End If
Next i
Tabelle1.Cells(12, 5) = j
Tabelle1.Cells(14, 5) = k
End Sub
Wäre für jede Hilfe dankbar :-) |
