Hallo zusammen
Ich habe ein Makro gefunden, was mir aus Blatt Spalteinstellung alle Werte aus letzter beschriebener Zeile A in Sheet Schichtübergabe schreibt.
Leider schreibt es mir die Daten dann nur in Spalte A untereinander. Kann mir jemand helfen, den Code so umzuändern, das die Daten dann in der ersten freien Zeile A schreibt.( also nebeneinander)
Hier mal der Code:
Dim sh As Worksheet, shZ As Worksheet
Dim lz%
Set sh = Sheets("Statistik Spalteinstellung")
Set shZ = Sheets("Schichtübergabe")
lz = shZ.Cells(Rows.Count, 1).End(xlUp).Row
On Error GoTo ende
If Selection.Value = 999 Then
shZ.Cells(lz, 1) = ""
Else
shZ.Cells(lz + 1, 1).Value = Selection.Value
End If
ende:
Set sh = Nothing
Set shZ = Nothing
End Sub
Ich hoffe die Fragestellung war eindeutig genug.
Mit freundlichen Grüßen Fred