Wie kann ich mit VBA in einer Tabelle in Sp. "A" nach einem Begriff suchen - z.B. "Summe" und anschließend die entsprechende Zeile entweder ganz oder ab Spalte "B" in ein zweite Tabelle übertragen? Kann mir jemand bitte helfen?
Option Explicit
Sub KopieSummenzeile()
Dim rngF As Range, intC As Integer
Const intSp As Integer = 2 ' 1, wenn ab Spalte A kopiert werden soll
Set rngF = Columns("A:A").Find(What:="Summe", After:=Cells(1, 1), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rngF Is Nothing Then
MsgBox "Summe nicht gefunden"
Else
intC = Cells(rngF.Row, Columns.Count).End(xlToLeft).Column
If intC >= intSp Then _
Range(Cells(rngF.Row, intSp), Cells(rngF.Row, intC)).Copy _
Destination:=Sheets("Tabelle2").Cells(2, 1) ' 1. Zielzelle
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort