PDA

Vollständige Version anzeigen : Fehler beim Kompilieren


mücke
11.11.2008, 15:19
Hallo allerseits,

ich sehe vor lauter Bäumen den Wald nicht mehr :(

Anbei ein CODE für die Eingabe von Uhrzeiten ohne Doppelpunkteingabe
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("S12:T42", "AA12:AB42", "S54:T82", "AA54:AB82", "S94:T124", "AA94:AB124", _
"S136:T165", "AA136:AB165", "S177:T207", "AA177:AB207", "S219:T248", "AA219:AB248", _
"S260:T290", "AA260:AB290", "S302_T332", "AA302:AB332", "S344:T373", "AA344:AB373", _
"S385:T415", "AA385:AB415", "S427:T456", "AA427:AB456", "S468:T498", "AA468:AB498")
If Not Intersect(Target, rng) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Right(Target, 2) < "60" Then
Application.EnableEvents = False
Target = Format(Target.Value, "00:00")
Application.EnableEvents = True
End If
End If
End Sub
Bis gerade hat er auch noch wunderbar funktioniert, dann habe ich die Range etwas erweitert und jetzt bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren
Falsche Angabe an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
Was hab ich hier falsch gemacht?
Gruß Mücke

IngGi
11.11.2008, 15:46
Hallo Mücke,

Schreibfehler! Da steht ein Unterstrich an Stelle eines Doppelpunktes:

"S302_T332"

Gruß Ingolf

NoNet
11.11.2008, 15:47
Hey,

Du musst den RANGE so definieren :

Set rng = Range("S12:T42,AA12:AB42,S54:T82,AA54:AB82,S94:T124,...")

chris-kaiser
11.11.2008, 15:49
hiho

oder über eine Union

Set rng = Union(Range("S12:T42"), Range("S54:T82"), Range("AA12:AA42"))

usw..
vielleicht geht es dann

mücke
12.11.2008, 07:45
Guten Morgen Zusammen,

jetzt funzt es, vielen Dank!! :D

@Ingolf ein kleiner Schreibfehler mit großer Wirkung!...den hätte ich in 100 Jahren nicht gefunden! Danke ;)
@NoNet Deine Variante führte zum gewünschten Ergebnis! Supi, 1.000 Dank :)
@chris-kaiser auch Dir vielen Dank für die Info. Werde deine Alternative aus Zeitgründen etwas später testen.

Echt :top: EURE Hilfsbereitschaft!

Gruß Mücke