Liste erstellen - makro von ede
24.10.2006 13:37:03
Thomas
ich hab ein VBA aus dem Forum bekommen. Es funktioniert auch super.
Nur mein Problem:
Ich suche nach z. B. Bericht1 ich erhalte auch alle Einträge mit Bericht1,
es sollen mir auch Einträge mit Bericht1_1 oder Bericht1/1 aufgelistet werden.
Vielen Dank
Gruß Thomas
Verwendete VBA:
Sub hole_Berichte()
Dim strSuch As String
Dim s, i, z, lz, zz, vonSheet, anzSheet As Integer
vonSheet = 1 ' Sheetindex von Januar
anzSheet = 12 'Anzahl Scheets
strSuch = Cells(1, 2) 'Suchbegriff
z = 44 'ab Zeile in monats sheets
zz = 11 ' ab Zielzeile in auswertungssheet
'alte Daten in Auswertung löschen
For i = Sheets("Infopaket").Cells(65536, 4).End(xlUp).Row To zz Step -1
Rows(i).Delete
Next i
'Neuaufbau
For s = vonSheet To vonSheet + anzSheet - 1
lz = Sheets(s).Cells(65536, 4).End(xlUp).Row
For i = z To lz
If Sheets(s).Cells(i, 4) = strSuch Then
Sheets("Infopaket").Cells(zz, 1) = Sheets(s).Cells(i, 1)
Sheets("Infopaket").Cells(zz, 2) = Sheets(s).Cells(i, 2)
Sheets("Infopaket").Cells(zz, 3) = Sheets(s).Cells(i, 3)
Sheets("Infopaket").Cells(zz, 4) = Sheets(s).Cells(i, 4)
Sheets("Infopaket").Cells(zz, 5) = Sheets(s).Cells(i, 6)
Sheets("Infopaket").Cells(zz, 6) = Sheets(s).Cells(i, 7)
Sheets("Infopaket").Cells(zz, 7) = Sheets(s).Cells(i, 8)
Sheets("Infopaket").Cells(zz, 8) = Sheets(s).Cells(i, 9)
Sheets("Infopaket").Cells(zz, 9) = Sheets(s).Cells(i, 13)
Sheets("Infopaket").Cells(zz, 10) = Sheets(s).Cells(i, 14)
Sheets("Infopaket").Cells(zz, 11) = Sheets(s).Cells(i, 15)
Sheets("Infopaket").Cells(zz, 12) = Sheets(s).Cells(i, 16)
Sheets("Infopaket").Cells(zz, 13) = Sheets(s).Cells(i, 17)
Sheets("Infopaket").Cells(zz, 14) = Sheets(s).Cells(i, 18)
Sheets("Infopaket").Cells(zz, 15) = Sheets(s).Cells(i, 19)
Sheets("Infopaket").Cells(zz, 16) = Sheets(s).Cells(i, 21)
zz = zz + 1
End If
Next i
Next s
End Sub