Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MSGBOX erweitern ???

Forumthread: MSGBOX erweitern ?

MSGBOX erweitern ?
03.03.2006 10:54:49
walter
Hallo Zusammen,
ich habe folgende MsgBox:
If ActiveCell.Row &lt 4 And ActiveCell.Column &lt 29 Then
MsgBox "Achtung Sie haben die falsche Zelle + Spalte ausgewählt! " _
& Chr(13) & Chr(13) & " Zelle:" & " " & ze & _
" Spalte:" & " " & sp & Chr(13) & Chr(13) & _
"Die Z e i l e n 1, 2 + 3 und" & Chr(13) & _
"die S p a l t e n 1 bis 28" & Chr(13) & _
Chr(13) & Chr(13) & _
Chr(13) & "Sie befinden sich in der Aktuellen Zelle: " & azn & _
Chr(13) & "Sie können diese Zeile nicht kalkulieren oder veränderen !" & _
Chr(13) & "Neue Zeile auswählen" & Chr(13), vbCritical
Exit Sub
End If
irgendwie kriege ich das nicht hin.
Ich möchte grundsätzlich das die MSGBOX erscheint und dann abbricht, wenn eine Zelle innerhalb der Zeilen 1-3 und den Spalten größer als "28" ausgewählt werden.
Zusätzlich wenn eine Zelle außerhalb der Datenbank, das Ende wird ermittelt wird mit "lz" ausgegeben, ausgewählt wurde.
gruß Walter
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habe selbst Lösung gefunden ! o.t.
03.03.2006 11:59:05
walter
Hallo Zusammen,
habe selbts Lösung gefunden !
Hier meine MsgBox:~f~
Dim lz
lz = Range("a4").End(xlDown).Row 'letzte mit Nr. belegte Zelle
Dim az
az = ActiveCell.Address(False, False) 'Aktuelle Zelle ohne $ Zeizeichen
If ActiveCell.Row ActiveCell.Column > 28 Or ActiveCell.Row > lz 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, 2 + 3 und" & Chr(13) & _
Chr(13) & "die S p a l t e n 1 bis 28" & Chr(13) & _
Chr(13) & "und der Bereich außerhalb der Datenbank, sind 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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige