Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob zellen in bestimmten Bereichen liegen

Forumthread: Prüfen ob zellen in bestimmten Bereichen liegen

Prüfen ob zellen in bestimmten Bereichen liegen
Christian
Hallo Zusammen,
ich möchte über die Doppelklick Eigenschaft der Arbeitsmappe folgendes erreichen: Bei Doppelklick auf Zelle in Bereich A1:A50 soll eine UserForm angezeigt werden, Bei Doppelklick auf eine Zelle im Bereich C1:C50 soll eine andere UserForm angezeigt werden. Mit einem Bereich habe ich es mit intersect hinbekommen, aber wie mache ich das mit den zwei Bereichen?
Viele Grüße
Christian
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Prüfen ob zellen in bestimmten Bereichen liegen
21.01.2012 22:29:15
Matthias
Hallo
Dann mach doch das Gleiche für Userform2 nur eben mit dem anderen Bereich
Gruß Matthias
AW: Prüfen ob zellen in bestimmten Bereichen liegen
21.01.2012 22:34:56
CitizenX
Hi,
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim blnBereich1 As Boolean, blnBereich2 As Boolean
blnBereich1 = Not Intersect(Target, Range("A1:A50")) Is Nothing
blnBereich2 = Not Intersect(Target, Range("C1:C50")) Is Nothing
Select Case True
Case blnBereich1
UserForm1.Show
Case blnBereich2
UserForm2.Show
End Select
End Sub

Grüße
Steffen
Anzeige
so viele Zeilen Code ;o)
21.01.2012 22:37:56
Matthias
Hi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then UserForm1.Show
If Not Intersect(Target, Range("C1:C50")) Is Nothing Then UserForm2.Show
End Sub
Reicht doch, oder?
Gruß Matthias
Anzeige
..mir war langweilig ;-) Grüße oT.
21.01.2012 23:08:09
CitizenX
Danke!
22.01.2012 22:39:30
Christian
Hallo Zusammen,
herzlichen Dank, funktioniert.
Gruß
Christian
;

Forumthreads zu verwandten Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Anzeige
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Leere Zellen löschen wenn
walli

Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422...
14.06.2009 14:16:37
Thread-ID: 1081380
24 Beiträge
Zelle auf zwei Bedingen prüfen
Claudia

Guten Tag,
ich habe folgendes Problem:
ich möchte mit einer Schleife den Inhalt von Zellen auf zwei Bedingungen prüfen.
Hier der Code:
Do While Sheets(b).Cells(iDatumRow, i) "Ich" Or "Du"
leider funktioniert er nicht, es klappt nur mit einer Bedingung, also ohne Or "Du"
...
16.06.2009 12:54:36
Thread-ID: 1081854
13 Beiträge
VBA-Abfrage, ob Zellenbereich einen Namen hat
Martin

Hallo,
besteht die Möglichkeit via VBA abzufragen, ob ein bestimmter Zellenbereich (zum Beispiel genau Range("C5:F8")) einen Zellennamen hat?
Die Abfrage auf dem aktuellen Tabellenblatt geht so:
Sub Zellennamen_in_Tabelle_ermitteln() Dim nm As Name For Each nm In ActiveWorkbook.Na...
26.06.2009 08:28:29
Thread-ID: 1084501
2 Beiträge
Anzeige
Formeln sollen im nur arbeiten wenn Zelle leer ist
Andy

Hallo,
ich weiß nicht ob das überhaupt machbar ist.... aber hier meine Frage.
Wenn ich in Zellen, Formeln stehen habe die mir Werte ausgeben, und ich aber manchmal den Wert nicht akzeptieren möchte und Ihn deswegen Überschreibe. Dann ist normalerweise die Formel in der Zelle weg.
Kö...
26.06.2009 12:01:06
Thread-ID: 1084556
24 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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