Makro
08.06.2009 08:54:47
Nina
ich habe ein Makro, bei dem ich noch etwas Hilfe benötige.
Mein Makro sieht so aus:
Sub test()
Sheets("Tabelle1").Select
Range("A17:H3000").Select
Selection.ClearContents
Range("A16").Select
Sheets("Tabelle2").Select
letzteZeile = [A3000].End(xlUp).Row
For i = 11 To letzteZeile
vName = Cells(6, 5).Value
vBemerkung = Cells(i, 8).Value
Select Case vName
Case Is ""
Select Case vBemerkung
Case Is "ok"
Rows(i).Copy
Sheets("Tabelle1").Select
letzteZeile1 = [A3000].End(xlUp).Row
Cells(letzteZeile1 + 1, 1).Select
ActiveSheet.Paste
End Select
End Select
Range("A16").Select
Sheets("Tabelle2").Select
Next i
Application.CutCopyMode = False
Range("A1").Select
Sheets("Tabelle1").Select
End Sub
Ich benötige noch eine Zusatzzeile, dass mir nur die Ergebnisse ausgegeben werden, die sich auf die Zelle G6 in Tabellenblatt 1 beziehen.
Also, ich wähle in der Spalte G6 (Tabelle 1) einen Namen und möchte das alle Ergebnisse, die kein OK in der Ursprungsliste (Tabelle 2) erscheinen.
Lieben Dank schonmal im voraus.
LG Nina