Macro unter excel 2010 erstellen [Geschlossen]

gulsun - 1. April 2011 um 18:06 - Letzte Antwort:  schwertfisch
- 4. April 2011 um 11:27
Guten Tag,


Ich beherrsche überhaupt nicht Excel.
Um meine Aufgabe leicht zu machen, ich möchte einen macro erstellen, der für eine Datum-Format "01/02/2010" eine Wert 1 ausgibt .
Ich bin mir nicht sicher ob ich klar genug war...
Nun wir werden sehen.

danke im voraus !!!
Mehr anzeigen 

1 Antwort

schwertfisch - 4. April 2011 um 11:27
0
Danke
Hallo,
ich habe nicht alles ganz verstanden, aber folgendes ein ähnliches Beispiel:

Diese macro gibt 1 in der Spalte C aus, falls das Datum von der Spalte B Montag oder Freitag wäre.

Sub montag_freitag()
Dim lezte As Integer
Dim tag_woche as Byte
Dim t_date, t_out

letzte = Cells(Rows.Count, 2).End(xlUp).Row
t_date = Application.Transpose(Range("B3:B" & fin))

ReDim t_out(1 To UBound(t_date))
For cptr = 1 To UBound(t_date)
tag_woche = Weekday(t_date(cptr), 1)
If t_date(cptr) > 30000 And (tag_woche = 6 Or tag_woche = 2) Then
t_out(cptr) = 1
End If
Next

Application.ScreenUpdating = False
Range("C3:C" & UBound(t_out)) = Application.Transpose(t_out)
End Sub