Sub schreibeInLeereZelle()
If ActiveCell.Column = Columns.Count Then
GoTo errorHandler
ElseIf ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Value
Else
' Fehlerbehandlung, Zeile kann voll sein
On Error GoTo errorHandler
ActiveCell.End(xlToRight).Offset(0, 1).Value = ActiveCell.Value
End If
Exit Sub
errorHandler:
MsgBox ("Zeile voll")
End Sub
Sub schreibeInLeereZelle2()
If ActiveCell.Offset(, 1 - ActiveCell.Column) = "" Then
ActiveCell.Offset(, 1 - ActiveCell.Column).Value = ActiveCell.Value
ElseIf ActiveCell.Offset(, 2 - ActiveCell.Column) = "" Then
ActiveCell.Offset(, 2 - ActiveCell.Column).Value = ActiveCell.Value
Else
On Error Resume Next
ActiveCell.Offset(, 1 - ActiveCell.Column).End(xlToRight).Offset(0, 1).Value = _
ActiveCell.Value
If Err.Number 0 Then MsgBox ("Zeile voll")
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen