Auswerten
13.06.2007 14:24:47
Christian
ich möchte eine Tabelle etwas aufwerten. Blatt 1 enthält eine Aufstellung sämtlicher Umsätze.
VBA soll sich in dieser Gesamtaufstellung die Spalte B vornehmen und wenn Kriterium ("853") gefunden wurde, die gesamte Zeile in dem Tabellenblatt ("853") Spalte A Zeile 7:27 wiederholen.
Könntet Ihr mir vielleicht helfen ?
Das hab ich bisher:
Private Sub CommandButton2_Click()
With Worksheets("853")
Set gefunden = Worksheets("Stornos Gesamt").Range("B9:B250").Find("853")
gefunden.EntireRow.Copy
Sheets("853").Select
Range("A7:A27").Find ("")
Set gefunden = Worksheets("853").Cells(.Rows.Count, "A7:A27").End(xlUp).Offset(1, 0). _
EntireRow.Insert
End With
End Sub