Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
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

If ActiveCell.Address = "$B$1:$D$1" Then

If ActiveCell.Address = "$B$1:$D$1" Then
Karsten
Hallo,
kann mir jemand diesen Code brauchbar machen?
Danke.
Gruß
Karsten
If ActiveCell.Address = "$B$1:$D$1" Then
...
End If

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
was heißt brauchbar machen ?
23.12.2010 19:14:55
Matthias
Hallo
so ?
 If Not Intersect(Target, Range("B1:D1")) Is Nothing Then
MsgBox "Du bist jetzt im Bereich"
End If
Gruß Matthias
AW: was heißt brauchbar machen ?
23.12.2010 19:25:45
Karsten
Hallo Matthias,
der Code steht in einem "normalen" Modul.
Wenn die akt. Zelle auf B1, C1, D1 (eigentlich bis X1) steht, soll ein Makro ausgeführt werden.
Mit $B$1:$D$1 liege ich da falsch.
Diese Code hatte ich bei mir zur Verfügung und wollte ihn ummodeln.
If ActiveCell.Address = "$A$1" Then
Gruß
Karsten
zwei Vorschläge
23.12.2010 19:55:27
Erich
Hi Karsten,
so?

If ActiveCell.Row = 1 And ActiveCell.Columns > 1 And ActiveCell.Columns 
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Sorry: Column statt Columns (owT)
23.12.2010 19:56:39
Erich
AW: Sorry: Column statt Columns (owT)
24.12.2010 11:09:40
Karsten
Hallo Erich,
besten Dank und schöne Weihnachten.
Gruß
Karsten
AW: hier ein Bsp.
23.12.2010 20:03:41
Gerd
Guten Abend!
Sub b()
Dim Bereich As Range
Set Bereich = Intersect(Range("B:X"), Rows(1))
If Not Intersect(ActiveCell, Bereich) Is Nothing Then
MsgBox "ja"
Else
MsgBox "nein"
End If
End Sub
Gruß Gerd
AW: hier ein Bsp.
24.12.2010 11:11:05
Karsten
Hallo Gerd,
besten Dank und schöne Weihnachten.
Gruß
Karsten
AW: hier ein Bsp.
24.12.2010 11:10:45
Karsten
Hallo Matthias,
besten Dank und schöne Weihnachten.
Gruß
Karsten
Anzeige

11 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige