Guten Tag,
habe folgendes Makro, der Bereich soll nur von Spalte 122 bis 127 Frei sein und größer ab Zeile 12
leider kann ich in die Spalte ebenfalls was ändern ?
Dim lz As Long
lz = Range("DR12").End(xlDown).Row 'letzte mit Nr. belegte Zelle
If ActiveCell.Row < 12 And ActiveCell.Column < 122 Or _
ActiveCell.Row < lz Or ActiveCell.Column > 127 Then
MsgBox "Achtung Sie haben die falsche Zelle + Spalte ausgewählt! " _
& Chr(13) & Chr(13) & "Sie befinden sich außerhalb der Tabelle : " & _
Chr(13) & "Die Z e i l e n 1 bis 12 und" & Chr(13) & _
Chr(13) & "die S p a l t e n < 122 und > 127" & Chr(13) & _
Chr(13) & "und der Bereich außerhalb des Datenbereiches, ist gesperrt !!! " & _
Chr(13) & Chr(13) & "Sie befinden sich in der Aktuellen Zelle: " & az & _
Chr(13) & Chr(13) & Chr(13) & "Neue Zeile auswählen" & Chr(13), vbCritical
Exit Sub
End If
mfg Walter MG