Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code

VBA-Code
Timo
Hallo zusammen,
ich möchte bei einer Eingabe von einen bestimmten Buchtaben x in einen Zellbereich ein aufgezeichnetes Makro aufrufen.
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" And Target.Value = "k" Then Call korrektur
End Sub
Dieser Code funtkioniert leider nur für die Zelle C6. Wenn ich den Zellbereich erweitere funktioniert der Code nicht mehr. Gibt es eine Möglichkeit den Zellbereich zu erweitern z.B. C6:I19?
Danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA-Code
31.01.2010 11:28:31
Reinhard
Hallo Timo, 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6:I19")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If UCase(Target.Value) = "K" Then Call korrektur
End Sub

Gruß
Reinhard
AW: VBA-Code
31.01.2010 11:29:57
Josef
Hallo Timo

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C6:I19")) Is Nothing Then
    If Target(1, 1) = "k" Then Call korrektur
  End If
End Sub


Gruß Sepp

Anzeige
AW: VBA-Code
31.01.2010 11:41:25
Timo
Vielen Dank Sepp funktioniert
AW: VBA-Code
31.01.2010 11:30:52
Tino
Hallo,
in etwa so müsste es gehen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect("C6:I19", Target)
If Not Bereich Is Nothing Then
For Each Bereich In Bereich
Select Case Bereich.Value
Case "k": Call korrektur
Case "v": Call Mach_was_anderes
'usw...
End Select
Next Bereich
End If
End Sub

Gruß Tino
Korrektur ...
31.01.2010 11:56:07
Tino
Hallo,
fehlt noch Range, kommt davon wenn man nicht testet. ;-(
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("C6:I19"), Target)
If Not Bereich Is Nothing Then
For Each Bereich In Bereich
Select Case Bereich.Value
Case "k": Call korrektur
Case "v": Call Mach_was_anderes
'usw...
End Select
Next Bereich
End If
End Sub
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige