Guten Tag,
es ist soweit, heute war der erste Tag auf Arbeit, wo ich auf VBA angewiesen bin, weil ich mit Excel nicht weiterkomme.
Es geht eigentlich nur darum Daten aus einem Sheet in ein anderes zu uebernehmen,jedoch haengt die zeilenanzahl in sheet1 von der spaltenanzahl in sheet3 ab. Das genauer zu erklaeren, wuerde sicher zu lange dauern.
Ich hab jetzt ein kleines Makro geschrieben (mein erstes Programm ueberhaupt, also bitte nicht lachen ), das jedoch komischerweise nicht funktioniert. Es kommt keine Fehlermeldung, sondern passiert einfach garnichts.
Wenn jemand mal bitte daruebergucken koennte, ob ich einfach irgendeinen simplen Fehler gemacht habe? Das waer toll. Danke!
PS: Das in den ganzen Felder auch die richtigen Daten stehen, dafuer ist gesorgt.Das hab ich ueberprueft.
Hier ist der Quellcode:
Sub versuch1()
Dim Introw As Integer
Dim Intcol As Integer
Dim limit As Integer
Dim numberofmonth As Integer
Dim firstmonth As Integer
limit = 3
For Introw = 2 To limit
numberofmonth = Sheet3.Cells(Introw, 18)
firstmonth = Sheet3.Cells(Introw, 19)
For Intcol = 5 + firstmonth To firstmonth + numberofmonth - 1
Sheet1.Cells(Intcol + Introw, 1) = Sheet3.Cells(Introw, 1)
Sheet1.Cells(Introw + Intcol, 5) = Sheet3.Cells(Introw, Intcol)
Next Intcol
Next Introw