Hallo zusammen,
ich bin blutiger Progammieranfänger und versuche mich in VBA - klar, sonst wäre ich ja nicht hier.
Folgendes Problem:
Ich habe in die Zellen A1 bis A12 die Zahlen 1-12 eingegeben und - im Rahmen einer selbstgestrickten Übung - wieder in den Zellen B1 bis B12 ausgeben lassen. - Das funktioniert auch soweit.
Quelltext:
Sub For_each_Schleife()
Dim intWert_1 As Integer
Dim intWert_2 As Integer
Dim intCounter As Integer
With Sheets("Tabelle1")
For intCounter = 1 To 12
intWert_1 = .Range("A1").Value
intWert_2 = intWert_1 + intCounter - 1
.Range("B" & intCounter).Value = intWert_2
Next intCounter
End With
End Sub
Leider funktioniert dies nicht wenn ich z.B. dasselbe mit Monaten machen möchte. - Klar, habe die Prozedur angepasst (Strings etc.), aber mit dem "intCounter" (weiterzählen) funktioniert es nicht.
Kann mir jemand weiterhelfen?
2.) Werte im Dirketfenster auszugeben zu lassen ist für mich i.d.R kein größeres Problem. Gerne möchte ich jedoch bei Thema "Schleifen" Werte immer aus einer Tabelle aulesen und dann - nach der Verarbeitung durch das Programm - in einem Zellbereich wieder einfügen lassen. Kann mir jemand diesbezüglich auch Tipps geben, wie ich dies bewerkstelligen kann?
Über Antworten freue ich mich. Viele Grüße Chucrute
|