Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1244to1248
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
Inhaltsverzeichnis

VBA für mehrere Spalten

VBA für mehrere Spalten
chris58
Hallo !
Ich habe diesen VBA Code hier gefunden. Er geht bestens, je doch benötige ich diesen Code auf mehreren Spalten...also Spalte 3 (C) bis Spalte 24 (Z).
Kann mir hier wer helfen, was ich eingeben muß um dies zu ermöglichen.
Danke
chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  3 Then Exit Sub ' 1=Spalte A, 2=Spalte B usw.
With Target
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
Application.EnableEvents = False
.Value = Format(.Value, "00:00")
Application.EnableEvents = True
End If
End With
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA für mehrere Spalten
13.01.2012 21:41:36
JoWe
Hi Cris,
so vllt:
If Target.Column 24 Then Exit Sub '
Gruß
Jochen
AW: VBA für mehrere Spalten
13.01.2012 21:43:46
chris58
Hallo !
Habe es so probiert und funktioniert.
Danke Jochen
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("C8:Z39"))
With Target
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
Application.EnableEvents = False
.Value = Format(.Value, "00:00")
Application.EnableEvents = True
End If
End With
End Sub

Anzeige

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige