Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Erweiterung

Forumthread: VBA - Erweiterung

VBA - Erweiterung
16.12.2014 15:06:52
tigub
Hallo zusammen
Ich denke mal, nur ein kleines Problem für Euch, für mich riesen Gross:
If Target.Address = Range("B4").Address Then
Application.EnableEvents = False
If Target.Value = "" Then Target = "1. Game"
Application.EnableEvents = True
End If
Nun möchte ich das erweitern auf mehrere Zellen, mit verschiedenen Einträgen.
B6 = 2. Game
B8 = 3. Game
B10 = 4. Game
Ist das überhaupt möglich, wenn ja, wie müsste es dann aussehen?
Vielen Dank im vorraus
Urs

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Erweiterung
16.12.2014 16:34:56
Peter
Hallo Urs,
versuche es so:
If Target.Address(0, 0) = "B4" Or _
Target.Address(0, 0) = "B6" Or _
Target.Address(0, 0) = "B8" Or _
Target.Address(0, 0) = "B10" Then
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "B4"
If Target.Value = "" Then Target = "1. Game"
Case "B6"
If Target.Value = "" Then Target = "2. Game"
Case "B8"
If Target.Value = "" Then Target = "3. Game"
Case "B10"
If Target.Value = "" Then Target = "4. Game"
End Select
Application.EnableEvents = True
End If
Gruß Peter

Anzeige
AW: VBA - Erweiterung
16.12.2014 16:39:29
AndrRo
Hallo Urs
engetestet:
Application.EnableEvents = False
select case Target.Address
case Range("B4").Address
If Target.Value = "" Then Target = "1. Game"
Case Range("B6").Address
If Target.Value = "" Then Target = "2. Game"
case Range("B8").Address
If Target.Value = "" Then Target = "3. Game"
case Range("B10").Address
If Target.Value = "" Then Target = "4. Game"
end select
Application.EnableEvents = True
gruss AndrRo

Anzeige
AW: VBA - Erweiterung
16.12.2014 17:18:26
tigub
Vielen Dank
läuft super genauso wie ich das wollte..
Mercy
Urs

AW: VBA - Erweiterung
16.12.2014 17:23:56
tigub
Vielen Dank
Läuft auch super...
Gruss Urs
;

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