Schleife

Forumthread: Schleife

Schleife

17.02.2003 15:06:52

Charly

Hallo Zusammen,
ich habs Gestern schon mal versucht aber warscheinlich schlecht erklärt.
Heut versuch ichs mal anders.
Ich moechte das eine Schleife Sheets(6) bis Sheets(Sheets.Count) Durchlaufen wird.
For i = 6 To Sheets(Sheets.Count)
Sheets(i) haben alle den selben Tabellenaufbau.
Range("C11:AG11") enthält Datumswerte oder Nichts(wenn der Monat keine 31 Tage hat)
Range("C5:AG10") enthält Stunden als Zahl
Range("A5:A10") enthält Kostenträger(Zellen sind als Text formatiert
Oberhalb des Datums steht im Bereich ("C5:AG10") max. ein Stundeneintrag(oder Nichts)
der in seiner Zeile einem Kostenträger in ("A5:A10") zugeordnet ist.

Ich möchte folgendes erreichen:
In Sheets("BILANZ") sollen ab
Range("A25") abwärts die Datumswerte eingetragen werden
Range("C25") abwärts die zugehorigen Stunden eingetragen werden
Range("D25") abwärts die den Stunden zugeordneten Kostenträger eingetragen werden

Ich hoffe das versteht jemand.
Start über Button aus Sheets("BILANZ")

Ich danke Jedem der versucht meine Ausführungen zu verstehen.
MfG Charly

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Schleife

18.02.2003 07:16:13

Frederik Fuhrmann
Re: Schleife

18.02.2003 07:17:55

Frederik Fuhrmann
...hat nicht so ganz funktioniert!

18.02.2003 07:21:28

Frederik Fuhrmann
Re: Schleife

18.02.2003 11:59:11

Klaus-Dieter
Re: Schleife

18.02.2003 11:59:16

Klaus-Dieter
Nö, hab keine...

18.02.2003 17:19:37

Charly
Re: ...hat nicht so ganz funktioniert!

18.02.2003 17:37:45

Charly

Re: Schleife

18.02.2003 07:16:13

Frederik Fuhrmann

Re: Schleife

18.02.2003 07:17:55

Frederik Fuhrmann

...hat nicht so ganz funktioniert!

18.02.2003 07:21:28

Frederik Fuhrmann

Hier mal Ansatzweise der Code:

letzte_Zeile = Range("b65536").End(xlUp).Offset(1, 0).Row
Range("B1").Select
Do
    ActiveCell.End(xlDown).Select
    If ActiveCell.Row > letzte_Zeile Then GoTo Ende
    ActiveCell.Offset(-1, 1).Cut Destination:=Range("E65536").End(xlUp).Offset(1, 0)
    ActiveCell.Cut Destination:=Range("E65536").End(xlUp).Offset(0, 1)
    ActiveCell.Offset(0, 1).Cut Destination:=Range("E65536").End(xlUp).Offset(0, 2)
    ActiveCell.Offset(1, 1).Cut Destination:=Range("E65536").End(xlUp).Offset(0, 3)
    Range("E65536").End(xlUp).Offset(0, 4) = ActiveCell.Offset(0, -1)
Loop
Ende:
Columns.AutoFit
Columns("A:D").Delete
End Sub

Hierbei steht die Straße in Spalte A, der Rest der Adresse untereinander in Spalte B.

Gruß
F.

Beliebteste Forumthreads (12 Monate)

Forumthread: Schleife

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread