Mit VBA Zeilen aus Excel auslesen

Computer: Software & Programmierung Visual Basic
#1

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

#2

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
#3

super, vielen Dank, hat soweit geklappt!

LG, Dave