Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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
Anzeige

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
Anzeige
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
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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten Themen

if not i = 2 or 3 then.. wie geht das?
Frank

Hallo zusammen
ich möchte in einer For Schlaufe bei gewissen Indices einen Befehl nicht ausführen. Wie muss ich den Befehl eingeben, ich versuchte es so:
if not i = 2 or 5 then
...
end if
Dies funktioniert jedoch nicht. Ich habe vier oder 5 verschiedene Indices, die ich übersprin...
03.04.2003 22:38:07
Thread-ID: 240102
5 Beiträge
ElseIf 7<=k<=11 then wird ignoriert
michael

HAllo,
kann mir zu später Stunde noch jemand helfen?
wenn der SchleifenZähler bei k=12 steht springt die routine trotzdem in die ElseIf 7&lt=k&lt=11 then~f~ Bedingung
wie mus die Abfrage richtig lauten? Damit die routine in die naüächste Abfrage springt
~f~ElseIf 12&l...
10.02.2005 00:29:53
Thread-ID: 565021
6 Beiträge
ElseIf 7<=k<=11 then wird ignoriert
michael

HAllo,
kann mir zu später Stunde noch jemand helfen?
wenn der SchleifenZähler bei k=12 steht springt die routine trotzdem in die ElseIf 7&lt=k&lt=11 then~f~ Bedingung
wie mus die Abfrage richtig lauten? Damit die routine in die naüächste Abfrage springt
~f~ElseIf 12&l...
10.02.2005 00:29:53
Thread-ID: 565021
6 Beiträge
ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
ActiveCell.Address
Lorenz

Hallo,
gibt es ähnliches auch für die Zeilenangabe bzw. Spaltenangabe?
Bei der Legenheit noch eine Frage: Wenn ich die erste leere Zeile in Spalte ermitteln will und von dort die nächsten 20 Zeilen löschen will, wie müsste ich das machen? Bin derzeit doch ziemlich planlos (siehe meine F...
16.08.2011 16:38:15
Thread-ID: 1226335
3 Beiträge
ActiveCell.Row ( Spalte dann von : bis ) ?
:

Hallo Forum,
bräuchte bitte eure Hilfe bei einer VB Anweisung
ich möchte gerne an irgendeiner Stelle meiner ganzen Anweisungen folgendes anweisen
Bei der aktiven gewählten Zeile soll dann Spalte 2 bis 9 leer sein ( ="" ) ( .clearcontent ? )
habe folgendes probiert : ' Cells(Act...
20.10.2011 10:31:33
Thread-ID: 1234656
4 Beiträge
kopieren von ActiveCell.Row zu Target
ActiveCell.Row

Hallo Excelspezis
bräuchte bitte eine passende Anweisung für folgende Problematik
Target.Row , 4 = Cells(ActiveCell.Row,4).Value oder so ähnlich, bzw. richtig eben.
Hier fehlt mir die richtige Definition wie man Target als aktiveZeile,Spalte 4 angibt.
Das ganze soll dann im "B...
26.10.2011 16:47:19
Thread-ID: 1235531
7 Beiträge
VBA Hilfe ActiveCell
Alex

Hallo,
ich habe bisher folgenden Code Private Sub CommandButton21_Click() Dim zeit As String zeit = Right(Now(), 19) ActiveCell.FormulaR1C1 = zeit Selection.NumberFormat = "dd.mm.yyyy hh:mm:ss" Dim Zeile As Long Zeile = ActiveCell.Row With ActiveSheet Do Zeile = Zeile + 1 Loop Until Rows(Ze...
16.02.2015 16:41:31
Thread-ID: 1409730
4 Beiträge
If ActiveCell.Rows < 17 Then Exit Sub
Harald K

Hallo Excelforum,ich dachte mit
If ActiveCell.Rows < 17 Then Exit Sub
veranlasse ich das Makro erst ab Zeile 17 mit dem Code
weiterzumachen ansonsten wird nichts ausgeführt.Ist das richtigGruß Harald
15.08.2002 20:50:23
Thread-ID: 149228
13 Beiträge
ActiveCell.Rows mit Variable
Andreas

Hallo Leute, warum funktioniert folgender Code nicht?
Sub Test() Dim i As Integer i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1) ActiveCell.Rows("1:i").EntireRow.Select End Sub Eigentlich sollten die Zeilen Anzahl i markiert werden. :-(
Vielen Dank schon mal
Andreas...
22.12.2016 18:32:58
Thread-ID: 1531507
8 Beiträge
ActiveSheet.Cells ....(Target.Row+3,1)
STeve

Hallo Leute.
Probiere seit einer Stunde folgende Variable zu füllen:
In einer Userform soll eine Label damit beschrieben werden:
Dim MitarbeiterinArbeit As String
MitarbeiterinArbeit = ActiveSheet.Range("A21").Value 'liefert den richtigen Wert
Dachte mir:
MitarbeiterinA...
28.06.2017 21:59:25
Thread-ID: 1566378
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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