Microsoft Excel

Herbers Excel/VBA-Archiv

VBA für mehrere Spalten | Herbers Excel-Forum


Betrifft: VBA für mehrere Spalten von: chris58
Geschrieben am: 13.01.2012 20:42:38

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

  

Betrifft: AW: VBA für mehrere Spalten von: JoWe
Geschrieben am: 13.01.2012 21:41:36

Hi Cris,
so vllt:
If Target.Column < 3 Or Target.Column > 24 Then Exit Sub '
Gruß
Jochen


  

Betrifft: AW: VBA für mehrere Spalten von: chris58
Geschrieben am: 13.01.2012 21:43:46

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



Beiträge aus den Excel-Beispielen zum Thema "VBA für mehrere Spalten"