Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen, ob Zelle in Bereich

Prüfen, ob Zelle in Bereich
18.02.2004 09:17:35
Thomas
Hallo,
ich möchte einen Bereich erstellen und prüfen, ob die angeklickze Zelle innerhalb dieses Gebietes liegt
Thomas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen, ob Zelle in Bereich
18.02.2004 09:27:17
Matthias G
Hallo Thomas,
wie willst Du den Bereich denn erstellen?
Soll das ganze ein VBa-Code werden?
Gruß Matthias
AW: Prüfen, ob Zelle in Bereich
18.02.2004 09:28:49
Mac4
Hallo Thomas,
mit VBA geht das wie folgt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then
Else
MsgBox "Zelle ist in gewähltem Zellbereich"
End If
End Sub

Code gehört in das Tabellenmodul!
Marc
AW: Prüfen, ob Zelle in Bereich
18.02.2004 09:52:06
Thomas
Danke zunächst für die schnelle Antwort,
das ist noch nicht ganz das was ich will. Ich habe eine Liste in Tabelle2 und will nun prüfen, ob der Wert der Aktiven Zelle innerhalb dieser Liste vorhanden ist. wie mach ich das nun ? Die Sub von oben kann ich nicht direkt ausführen
Danke
Thomas
Anzeige
AW: Prüfen, ob Zelle in Bereich
18.02.2004 10:01:01
Mac4
Hallo Thomas,
so was?

Sub test()
If WorksheetFunction.CountIf(Range("A1:A10"), ActiveCell.Value) > 0 Then
MsgBox "Wert ist enthalten"
End If
End Sub

Marc
AW: Prüfen, ob Zelle in Bereich
18.02.2004 10:06:21
Thomas
Jaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
danke. Wie sag ich Ihm denn jetzt noch, dass der Berecih auf dem Tabellenblatt 2 liegt
Thomas
AW: Prüfen, ob Zelle in Bereich
18.02.2004 10:14:16
Mac4
Hi Thomas,
dann so:

Sub test()
If WorksheetFunction.CountIf(Sheets("Tabelle2").Range("A1:A10"), ActiveCell.Value) > 0 Then
MsgBox "Wert ist enthalten"
End If
End Sub

Marc

29 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige