Liebe Experten
Ich habe folgende Ausgangslage: In einem Excel-Tabellenblatt (Tabellenblatt A) ist eine Tabelle mit X Zeilen und Spalten.
In der Spalte E habe ich verschiedene Werte (Bsp: 1, 5, 10). Nun würde ich gerne ein Skript haben, welches in Blatt A die Werte in Spalte E nach dem Wert „10“ durchsucht und mir dann in einem neuen Tabellenblatt (Tabellenblatt B) sämtliche Zeilen einfügt, welche diesen Wert 10 in Spalte E haben. Dabei soll die gesamte Zeile eingefügt werden und nicht nur eine einzelne Zelle (wie z.B. beim SVERWEIS oder so)!
–> Windows XP SP3 / Excel2007
Wie geht sowas? Besten Dank für Eure Unterstützung im Voraus!
Lieber Gruss,
Dave
In der Spalte E habe ich verschiedene Werte (Bsp: 1, 5, 10).
Nun würde ich gerne ein Skript haben, welches in Blatt A die
Werte in Spalte E nach dem Wert „10“ durchsucht und mir dann
in einem neuen Tabellenblatt (Tabellenblatt B) sämtliche
Zeilen einfügt, welche diesen Wert 10 in Spalte E haben. Dabei
soll die gesamte Zeile eingefügt werden und nicht nur eine
einzelne Zelle (wie z.B. beim SVERWEIS oder so)!
Hallo Dave,
'Alt+F11, Einfügen–Modul, Code reinkopieren, beide Blattnamen anpassen, Editor schliessen
'Aufrufen mit Extras–Makro–Makro…
Gruß
Reinhard
Sub pruef()
Dim Zei1 As Long, Zei2 As Long, wks2 As Worksheet
Set wks2 = Worksheets("Tabelle2")
wks2.UsedRange.ClearContents
Const Such As Integer = 10
With Worksheets("Tabelle1")
For Zei1 = 1 To .Cells(.Rows.Count, 5).End(xlUp).Row
If .Cells(Zei1, 5) = Such Then
Zei2 = Zei2 + 1
.Rows(Zei1).Copy Destination:=wks2.Cells(Zei2, 1)
End If
Next Zei1
End With
End Sub
super, vielen Dank, hat soweit geklappt!
LG, Dave