Hi liebes Forum,
ich arbeite an einem Makro in VBA das mir aus einer riesigen Liste ca 50.000 Zeilen und 10 Spalten, Zeilen rauskopiert und diese mir in ein neues Tabellenblatt anlegt.
Jetzt die Schwierigkeit wo ich auch nicht weiter komme. Das Makor soll einer der 50.000 Zeilen kopieren wenn in einer bestimmten Zelle (Zeile + Spalte) Ein bestimmter Buchstabe steht und dann mir ein Tabellenblatt mit dem Namen des Buchstaben anlegen in der die Zeilen kopiert worden sind.
Beispiel:
1 Zeile: In Spalte 2 steht ein A
2 In Spalte 2 steht ein B
3 In spalte 2 steht ein C
4 In Spalte 2 steht ein A
5 In Spalte 2 steht ein D
6 In Spalte 2 steht ein A
7 In Spalte 2 steht D
Es soll nun das neue tabellenblatt mit Namen: "A" angelegt werden und alle Zeilen in das Blatt kopiert werden die in Spalte 2 ein A haben.
Dies dann für alle verschiedenen Buchstaben in Spalte 2 fü.
Mein Makro macht das allerdings nur einzelnt und ich weiß uach nicht wi ich tabellenblätter anlege mit einem namen nachdem gesucht wird sprich "A"
Hoffe es kennt einer einen weg dies zu beschleunigen. Hier mal mein Makro was leider nur bestimmte Zeilen rauskopiert die einen gewissen wert in einer Zelle haben aber kein neues Blatt anlegt mit dem Namen das rauskopeirt wurde:
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "Ja" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
|