Was mach ich bei dem code hier falsch?

Forumthread: Was mach ich bei dem code hier falsch?

28.04.2005 21:08:53

Bryan

Hallo Leute,
ich bin beim Versuch einen Code zu erstellen, da ich aber nicht viel Ahnung hab läuft da einiges schief. Könntet ihr mal draufschauen was ich da falsch mache.


Sub Test()
Dim zeile1(101 To 113) As Range
For zeile2 = 161 To 527
Feiertage = zeile1
Datum = Cells(zeile2, 1)
If Datum = Feiertage Then
Cells(zeile2, 2) = "Fe"
Else
If Datum = vbSunday Then
Cells(zeile2, 2) = "So"
Elseelf
If Datum = vbSaturday And Cells(zeile2, 2) = "N" Then
Cells(zeile2, 2) = "Sa"
End If
Next zeile2
End Sub

gruss Bryan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beschreib mal bitte was du machen willst o.w.T

28.04.2005 23:12:13

Reinhard
AW: Was mach ich hier falsch? -- Ziemlich viel!

29.04.2005 00:04:47

Luc:-?

Beschreib mal bitte was du machen willst o.w.T

28.04.2005 23:12:13

Reinhard

AW: Was mach ich hier falsch? -- Ziemlich viel!

29.04.2005 00:04:47

Luc:-?

Hallo Bryan,
so dann wollen wir mal...


Sub Test()
Dim zeile1(101 To 113) As Range 'würd ich nicht so machen, müsste aber gehen
Dim zeile2 As Long              'erforderlich, falls Option Explicit eingestellt
Dim Feiertage As Range          'dito
Dim Datum As ...                'dito und ... vielleicht Integer (aus weiter unten)?
For zeile2 = 161 To 527
Set Feiertage = zeile1       'set, weil das ein Objekt ist, s.Hilfe
Datum = Cells(zeile2, 1)
If Datum = Feiertage Then    'das geht überhaupt nicht, wegen unterschiedl Typen
rem hier müsstest du wohl mit einer Schleife die Zellen in Feiertage durchlaufen,
'   hängt davon ab, was du eigentlich wie machen willst
Cells(zeile2, 2) = "Fe"
ElseIf Datum = vbSunday Then 'das hängt davon ab, was für einen Datentyp Datum hat
Cells(zeile2, 2) = "So"
ElseIf Datum = vbSaturday And Cells(zeile2, 2) = "N" Then
Cells(zeile2, 2) = "Sa"
End If
Next zeile2
End Sub

Allerdings hab ich das Gefühl, dass du Einiges anders meinst als es den (programmtechnischen) Anschein hat! Wird schon noch wdn! Hilfe lesen und weiter probieren. Hab ich auch so gelernt!
Gruß Luc :-?

Was mach ich bei dem code hier falsch?

Forumthread: Was mach ich bei dem code hier falsch?

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread