AW: Cursor in letzte Zelle einer Zeile
03.08.2005 13:19:17
Andreas
Sub Schaltfläche1_BeiKlick()
kwzeile = 1: Rem ggf. äöndern
kwspalte = 1: Rem ggf. ändern
zeile = 4: Rem ggf. ändern
spalte = 255
gefunden = False
While gefunden = False And spalte <> 0
If Cells(zeile, spalte) <> "" Then
Cells(zeile, spalte + 1) = "KW " & LTrim(Str$(Cells(kwzeile, kwspalte)))
Cells(zeile, spalte + 1).Activate
Cells(kwzeile, kwspalte) = Val(Cells(kwzeile, kwspalte)) + 1
gefunden = True
End If
spalte = spalte - 1
Wend
If gefunden = False Then
Cells(zeile, 1) = "KW " & LTrim(Str$(Cells(kwzeile, kwspalte)))
Cells(zeile, 1).Activate
Cells(kwzeile, kwspalte) = Val(Cells(kwzeile, kwspalte)) + 1
End If
End Sub