Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige