Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige