Letzter Versuch ...
WernerB.
Hallo Bommi!
Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim s As String
Dim laR As Long
With Sheets("Tabelle1")
.Select
ActiveCell.Select
s = .Range("A1").Text
End With
With Sheets("Bahnhöfe")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range(.Cells(1, 1), .Cells(laR, 1)). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
.Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256)).Copy
Sheets("Tabelle3").Range("A1").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set SuBe = Nothing
End If
End With
End Sub
Gruß
WernerB.