Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveCell.Value

Forumthread: ActiveCell.Value

ActiveCell.Value
16.08.2006 15:59:22
Jens
Hallo, Excel-Gemeinde
Suche Hilfe zu folgendem Problem:
Bei Eingabe eines Wertes in die ActiveCell und Bestätigung durch "Enter" ändert sich ja sofort die ActiveCell in die nächste Zelle.
Ich möchte aber, dass ich die Zelle in der ich die Eingabe vorgenommen habe, noch als ActiveCell ansprechen kann.
Diese soll ähnlich einer bedingten Formatierung abgefragt werden:
..if ActiveCell.value = "xxx" then ActiveCell.value = "yyy"...
Ich weiß, dass dieses möglich ist, aber wie?
Könnte mir da jemand nen Anstoss geben?
Danke an alle "Not-Ärzte" hier im Forum. ;-)
Gruß
Jens
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveCell.Value
16.08.2006 16:03:49
Kurt
Hi,
Dim rngAC as Range
Set rngAC = ActiveCell
If rngAC.Value = "xxx" Then rngAC.Value = "yyy"
Set rngAC = Nothing
mfg Kurt
AW: ActiveCell.Value
16.08.2006 16:09:06
Dan
Das laesst sich in 'tools/settings/3.tab'(Ich habe leider kein deutsches Excel :-) wo man den check-box 'die selection nach dem enter-druecken veschieben' un-checked. Dann bleibt die aktive zelle auch nach dem Enter-druecken aktiv. . Gruss Dan, cz
Anzeige
AW: ActiveCell.Value
16.08.2006 16:10:08
Jens
Hallo Kurt,
danke für die Antwort.
Hab es mal ausprobiert (Code im Sheet), funzt aber leider nicht.
Kann es sein, dass ich die ActiveCell als Target ansprechen muss?
MfG
Jens
AW: ActiveCell.Value
16.08.2006 16:13:15
Kurt
Hi,
es ist aus deinem Codeschnipsel nicht ersichtlich, ob es ein Ereignismakro ist.
Target gibt es nur bei einigen Ereignismakros.
mfg Kurt
Anzeige
AW: ActiveCell.Value
16.08.2006 16:22:19
Jens
Hallo,
Vielleicht habe ich mich etwas falsch ausgedrückt.
Ich will es mal anders beschreiben:
Ich gebe in irgendeine Zelle einen Wert ein und diese soll im Moment der Enter-Eingabe verglichen werden mit z.B. "xxx". Wenn der eingebene Wert "xxx" ist, soll dieser in dem Moment in "yyy" geändert werden.
Müsste also alles im gleichen Moment geschehen, in der die Enter-Taste betätigt wird.
In dem Moment ist die ActiveCell allerdings schon die nächste Zelle.
Das Ereignis, dass daraufhin die nächste Zelle angesprungen wird (betrifft: Markierung verschieben) soll so erhalten bleiben.
Vielleicht ist es so ersichtlicher geworden?
MfG
Jens
Anzeige
AW: ActiveCell.Value
16.08.2006 16:27:00
Eule
Hi Jens
dann versuch doch mit der Daten-Gültigkeit
Gruss Eule
AW: ActiveCell.Value
16.08.2006 16:08:26
Eule
Hi Jens
vielleicht hilft auch schon:
Haken raus in Optionen/Bearbeiten/Markieren nach dem Drücken....
dann verschiebt sich deine aktive Zelle nicht
Gruss Eule
AW: ActiveCell.Value
16.08.2006 16:25:12
Jens
Hallo Eule
danke für die Antwort.
Doch leider soll das Ereignis, dass die Markierung in die nächste Zelle springt, so bestehen bleiben.
Aber vielen Dank nochmal.
MfG
Jens
Anzeige
AW: ActiveCell.Value
16.08.2006 16:31:56
Kurt 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "xxx" Then Target.Value = "yyy"
End Sub

mfg Kurt
Thx @Kurt & Eule
Jens
Vielen Danke für die Hilfe.
Kurt, das ist es, was ich gesucht hatte.
Hab wohl nen Brett vor'm Kopf gehabt.
Danke nochmal.
MfG
Jens
Anzeige
;

Forumthreads zu verwandten Themen

ActiveCell.Offset(0, 1).Value
Franz

Hallo Leute,
vermutlich eine blöde Frage, aber ich komme nicht auf die Lösung.
Wie kann ich den Inhalt von ActiveCell.Offset(0, 1).Value ---- es ist ein Datum ---- um 1 Tag bzw.
1 Monat erhöhen. Rechne ich + 1, so erhöht sich das Jahr.
Grummel, grummel....
Danke für die Hilf...
20.06.2009 17:19:12
Thread-ID: 1083105
3 Beiträge
Sverweis / ActiveCell.Value - Laufzeitfehler
Thorben

Moinsen Kameraden,
ich brauch mal Licht ans Fahrrad.
Die ActiveCell.Value bzw. ActiveCell.Address ist immer in Spalte A (falls wichtig)
Mein Code:
Sub malnurgucken() Dim Suchbegriff As Variant Suchbegriff = ActiveCell.Value For i = 1 To 35000 With ActiveSheet If Workbooks("Daten...
25.04.2014 13:39:23
Thread-ID: 1358592
5 Beiträge
Anzeige
ActiveCell.Value
Alex
Man beachte bitte folgenden VBA-Code: Public Sub ValueType() Dim vValue As Variant vValue = "2" ActiveCell.Value = vValue Debug.Print "Cell: " & TypeName(ActiveCell.Value) & " / Var: " & TypeName(vValue) End Sub ... welcher folgende Ausgabe liefert:
Cell: Double / Var: String Es sieht so aus...
02.07.2014 13:30:09
Thread-ID: 1368603
5 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
Anzeige
Do Until ActiveCell.Value = ""
Martin

Hallo,ich komme bei folgendem Problem einfach nicht weiter.
Mittels CheckBox klicke ich in einer UserForm eine von zwei Boxen an. Das Ergebnis wird in eine Zelle geschrieben (rngErgebnis). In dieser Zelle steht i.E. immer entweder eine 0 oder eine 1.Mit einer Do - Until - Schleife die die Da...
17.06.2003 15:24:39
Thread-ID: 270115
7 Beiträge
ActiveCell.Value
Horst

Hallo

Wie bekomme ich den Wert einer Zelle neben der aktiven Zelle?

Bsp. Test = ActiveCell(Offset(0,1)).Value

Das mit dem Offset ist nur so eine Idee von mir, es geht leider nicht

Gruß Horst
31.07.2003 15:52:13
Thread-ID: 288238
3 Beiträge
Anzeige
Andere VBA Anweisung für - ActiveCell.Row
udo
Hallo und schönen Mittag zusammen,

wüsste mir bei folgender Aufstellung Jemand bitte einen Rat ?, Habe da nochmals so ein
Problem bei EXCEL 8 , welches aber auf XP läuft , komisch.

Es handelt sich nur um die Aufstellung best. definierter Zellen der gerade aktiven Zeile.
<...
10.11.2003 14:33:41
Thread-ID: 335893
3 Beiträge
VBA gibt es „ActiveTextbox“ wie ActiveCell
Lupus
Hallo Excel-User,
gibt es für Controls (Textboxen) so etwas Ähnliches wie ActiveCell, also „ActiveTextbox“?
Ich will ein Makro schreiben, das für mehrer Textboxen gelten soll, will aber nicht mehrmals den gleichen Code für jede Textbox schreiben.
Gruß Lupus
04.02.2004 17:16:30
Thread-ID: 376616
13 Beiträge
ActiveCell.Value
Frank
Hallo,
ich habe folgendes Makro:
Sub Test() Range("G2").Select Dim i As Long For i = 1 To 100 If ActiveCell.Value "Eins" Then ActiveCell.Value = "" Else ActiveCell.Offset(1, 0).Select End If Next i End Sub
Wenn der Text in der Zelle ungleich "Eins" ist,dann soll die Zelle leer sein. E...
17.02.2004 11:14:16
Thread-ID: 383636
4 Beiträge
Komplettes Sheet anwählen (VBA) anstatt ActiveCell
Nico

Hi @ll
folgendes Problem:
Ich habe den untenstehenden Code im Archiv gefunden, um "e" in "E" und "t" in "T" umzuändern. Problem ist, dass es nur auf die aktive Zelle gerichtet ist.
Wie muss ich den Code umschreiben, um das komplette Sheet anzusteuern?
ActiveCell = Application.Wo...
03.05.2005 14:01:28
Thread-ID: 607039
6 Beiträge
ActiveCell.Value
BK

Hallo zusammen,
ich möchte mir für eine Versuchsauswertung eine Excel-Vorlage erstellen. In dieser Vorlage soll der Nulldurchgang eines Winkels ermittelt werden. Klingt eigentlich einfach, so ganz klappt das aber nicht.
Ist der Nulldurchgang gefunden, soll die Zeilennummer gespeichert...
17.06.2005 16:38:16
Thread-ID: 625502
4 Beiträge
i = ActiveCell.Value
Dani

Hallo zusammen
hab da eine kleiners Problem
mit
i = ActiveCell.Value
definiere ich ja den Wert der aktuellen Zelle
nun möchte ich mit
Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchC...
24.06.2005 11:42:45
Thread-ID: 628508
3 Beiträge
Anzeige

Infobox / Tutorial

ActiveCell.Value in Excel VBA effektiv nutzen

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf das Projekt im linken Fenster und wähle Einfügen > Modul.

  3. Code eingeben: Füge den folgenden Code in das Modul ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = "xxx" Then Target.Value = "yyy"
End Sub

  4. Speichern: Schließe den VBA-Editor und speichere deine Excel-Datei als Makro-aktivierte Datei (*.xlsm).

  5. Testen: Gib in eine Zelle den Wert "xxx" ein und drücke Enter. Der Wert sollte sich automatisch in "yyy" ändern.

Häufige Fehler und Lösungen

  • Fehler: Die ActiveCell wird nicht erkannt.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblattmodul eingefügt wurde (z.B. Sheet1).

  • Fehler: Der Wert ändert sich nicht.

    • Lösung: Überprüfe, ob die Eingabe des Wertes tatsächlich in der Zelle erfolgt ist, bevor du Enter drückst.

Alternative Methoden

  • Einstellungen ändern: Du kannst die Option in Excel ändern, sodass die Auswahl nach dem Drücken von Enter nicht wechselt. Gehe zu Datei > Optionen > Erweitert und deaktiviere den Haken bei „Markierung nach dem Drücken von Enter verschieben“.

  • Datenvalidierung verwenden: Du kannst auch die Funktion zur Datenvalidierung nutzen, um die Eingabe von bestimmten Werten zu steuern, ohne VBA zu verwenden.

Praktische Beispiele

  1. Einfaches Beispiel: Wenn du in eine Zelle den Wert "Test" eingibst, soll dieser in "Bestätigt" geändert werden.

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = "Test" Then Target.Value = "Bestätigt"
End Sub

  2. Komplexes Beispiel: Verwende mehrere Bedingungen, um verschiedene Werte zu ändern.

    Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Value
       Case "A"
           Target.Value = "Alpha"
       Case "B"
           Target.Value = "Beta"
   End Select
End Sub

Tipps für Profis

  • Debugging: Nutze die Debugging-Tools im VBA-Editor, um Fehler in Deinem Code zu finden und zu beheben. Setze Haltepunkte und beobachte Variablenwerte.

  • Code optimieren: Verwende With-Anweisungen, um den Code effizienter und lesbarer zu gestalten.

    With ActiveCell
   If .Value = "xxx" Then .Value = "yyy"
End With

FAQ: Häufige Fragen

1. Frage
Wie kann ich sicherstellen, dass mein VBA-Code immer ausgeführt wird?
Antwort: Stelle sicher, dass der Code im entsprechenden Arbeitsblattmodul und nicht im allgemeinen Modul platziert ist.

2. Frage
Kann ich mehrere Zellen gleichzeitig prüfen?
Antwort: Ja, du kannst eine Schleife verwenden, um durch mehrere Zellen zu iterieren und deren Werte zu überprüfen.

3. Frage
Was ist der Unterschied zwischen ActiveCell.Value und ActiveCell.Text?
Antwort: ActiveCell.Value gibt den tatsächlichen Wert der Zelle zurück, während ActiveCell.Text den angezeigten Text der Zelle zurückgibt, der von Formatierungen beeinflusst sein kann.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige