kannst du es bitte noch einmal probieren?
kopiere zellen a1:d1 und füge inhalte in a2:d2, wenn eine oder mehrere zellen in a2:d2 belegt dann die werte erhalten.
gibt es hier für eine formel
oder VBA code
mayk
Sub test()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub
Private Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub
Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub
Sub test()
Dim zelle As Range
For Each zelle In Range("A2:D2")
If zelle = "" Then zelle = zelle.Offset(-1, 0)
Next
End Sub
Sub test()
Dim zelle As Range
For Each zelle In Range("A2:D2")
If zelle = "" Then zelle = zelle.Offset(-1, 0)
Next
End Sub
Sub test2()
Range("a1:d1").ClearContents
End Sub