Makro verbessern
24.12.2008 10:24:18
Claudia
zuerst einmal frohe Weihnachten. Ich hoffe, Ihr werdet reich beschenkt. :-)
Jetzt zu meinem Anliegen. Ich benutze folgendes Makro, um Zeilen, die in der Spalte A den Wert 2 oder 3 haben, in ein anderes Tabellenblatt zu kopieren.
Sub Zeilen_kopieren_wenn_bestimmter_inhalt()
Dim i As Integer
Dim r As Range
j = 5 'Zeile, mit der der Eintrag in der Tabelle beginnen soll
x = Range("c65536").End(xlUp).Row 'letze benutze zeile
For i = 1 To x
If Worksheets(17).Cells(i, 1).Value = 2 Or _
Worksheets(17).Cells(i, 1).Value = 3 Then 'Cells(i,1) bedeutet suche in Spalte A
Worksheets(18).Rows(j).Columns("A:p").Value = Worksheets(17).Rows(i).Columns("A:p").Value
j = j + 1
End If
Next i
Sheets("Ausschnitt MItarbeiter").Select
Range("a1").Select
End Sub
Wie man sieht, muss ich die Suchbegriffe 2 oder 3 hart im Modul verdrahten. Könnt Ihr mir helfen, dass ich die Suchbegriffe in dem Tabellenblatt 18 (dort werden die Werte hinkopiert) eintragen kann, beispielsweise in Zelle A1 und A2?
Das wäre super toll und ein schönes Weihnachtsgeschenk für mich. :-)
Liebe Grüße
Claudia