Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1252to1256
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
Inhaltsverzeichnis

Zelle leer dann nicht weiter!

Zelle leer dann nicht weiter!
Lisa
Hallo zusammen, ich stehe wieder vor einem von mir unlösbaren Problem und würde Euch gern um Hilfe bitten.
Ich möchte gern beim verlassen einer Zelle ("D8") in meiner Tabelle1 prüfen ob diese beschrieben ist,
wenn sie leer ist, darf ich sie nicht verlassen, ist sie "" dann kann ich sie verlassen!
Hat jemand eine Idee wie ich es bewerkstelligen kann?
Ich meine mal was mit diesem Worsheet_Change Ereignis gelesen zu haben, kann es aber nicht mehr wieder finden!
Das ist wohl ziehmlicher blödsinn, vielleicht habt ihr eine Anregung!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("D8")  "" Then
Sheets("Tabelle1").Cells(8, 4).Select
End If
End Sub

vielen Dank im Voraus
LG Lisa

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle leer dann nicht weiter!
19.03.2012 15:51:27
Rudi
Hallo,
sobald du einmal in D8 warst, kommst du nicht mehr raus, wenn leer:
Option Explicit
Dim blnDontExit As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not blnDontExit Then
If Target(1).Address = "$D$8" Then
blnDontExit = True
End If
Else
If [D8] = "" Then
Application.EnableEvents = False
[D8].Select
Application.EnableEvents = True
Else
blnDontExit = False
End If
End If
End Sub

Gruß
Rudi
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige