benötige Hilfe zu diesem Makro:
Sub Suchen_und_Zeile_leeren()
Dim wks As Worksheet
Dim Zelle As Range
Dim intCounter As Integer
Dim Suchbegriff As Variant
Suchbegriff = Sheets("Rechnungs-Übersicht").Range("C2")
For intCounter = 3 To 19
With Worksheets(intCounter)
Set Zelle = .Cells.Find(what:=Suchbegriff, after:=.Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Zelle Is Nothing Then
Application.GoTo Zelle
Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 8)).ClearContents
???????????????
End If
Next intCounter
End Sub
Das Löschen der ersten 8 Zellinhalte klappt wunderbar.
Nun möchte ich aber gleichzeitig aus dem Blatt ("Journal") die Inhalte der ersten 8 Zellinhalte in die zuvor gelöschten Zellen der durchlaufenen Blätter einfügen.
Denke das ich die zu kopierenden Zellen aus dem Journal als Variable deklarieren muss, aber dabei brech ich mir die Ohren.
Bin für jede Hilfe dankbar!
Grüsse
Wolfgang