Dim LRow As Long, LCol As Long
LCol = 1 'Spalte angeben?
LRow = IIf(IsEmpty(Cells(Rows.Count, LCol)), Cells(Rows.Count, LCol).End(xlUp).Row, Cells(Rows.Count, LCol).Row)
LRow = IIf(IsEmpty(Cells(LRow, LCol)), LRow, LRow + 1)
Cells(LRow, LCol).Select
If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
Range("A1").Select
Else
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).select
End If
If Cells(Rows.Count, 18).End(xlUp).Row = 1 Then
Range("R1").Select
Else
Range("R" & Cells(Rows.Count, 18).End(xlUp).Row + 1).Select
End If
If Cells(Rows.Count, 18).End(xlUp).Row = 1 And Range("R1").Value = "" Then
Range("R1").Select
Else
Range("R" & Cells(Rows.Count, 18).End(xlUp).Row + 1).Select
End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Long
Dim c As Long
On Error Resume Next
Application.EnableEvents = False
c = ActiveCell.Column
r = Cells(Cells.Rows.Count, c).End(xlUp).Row
If Not (r = 1 And Cells(r, c) = "") Then
r = r + 1
End If
Cells(r, c).Select
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LRow As Long, LCol As Long
Application.EnableEvents = False
LCol = Target(1).Column 'Spalte angeben?
LRow = IIf(IsEmpty(Cells(Rows.Count, LCol)), Cells(Rows.Count, LCol).End(xlUp).Row, Cells(Rows.Count, LCol).Row)
LRow = IIf(IsEmpty(Cells(LRow, LCol)), LRow, LRow + 1)
Cells(LRow, LCol).Select
Application.EnableEvents = True
End Sub
Sub Makro1()
End Sub
Sub Makroname an). Ich mache meine Makros per aufzeichnung, und später kleine anpassungen in _
den script, wie z.B spingen bis zu letzte nicht leere Zeile usw...
Ich möchte mich an euch allen trotzdem bedanke.
Gruß
Nibio