In diesem Tab. stehen in Zeile A jeweils Namen. Es soll der Name von A1 aufgesucht werden und darunter die Stundenzahl aus A5 eingetragen werden. Wie könnte das aussehen?
Mein Versuch haut nicht hin.
Sub Schaltfläche2_BeiKlick()
Range("A5").Select
Selection.Copy
For i = 2 To 256
If InStr(1, Cells(1, i).Value, A1) > 0 Then
Sheets("Zeitkonto").Select
Range(Cells(1, i), Cells(Cells(65536, i).End(xlUp).Row, i)).Select
End If
Next i
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub