AW: erste leere Zelle einer Zeile finden.
23.09.2009 14:23:15
JogyB
Hi.
Wenn es die erste rechts daneben sein soll:
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
Wenn es allgemein die erste leere Zelle sein soll:
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
Was man mit "VBA gut" aber eigentlich hinkriegen sollte...
Gruss, Jogy