for next schleife

Forumthread: for next schleife

for next schleife

29.01.2008 10:30:27

marco

hallo an alle,
habe eine schleife gebastelt.
ziel ist es alle werte in eine andere arbeitsmappe zu übertragen.
wenn ich die befehlszeilen for und next weglasse. funktioniert es. aber mit diesen befehlszeilen funktioniert es nicht mehr.
dim d,f
For f = 1 To 29
ActiveCell.Offset(1, 0).Select
d = ActiveCell.Value
Workbooks("KW 051").Activate
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = d
Next f
grüße
marco

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: for next schleife

29.01.2008 11:03:00

fcs
AW: for next schleife

29.01.2008 11:19:00

marco
AW: for next schleife

29.01.2008 11:32:28

Daniel
AW: for next schleife

29.01.2008 11:44:00

marco

AW: for next schleife

29.01.2008 11:03:00

fcs

Hallo marco,
am Ende der Schleife muss du bei deiner Konstruktion mit ActiveCell-, Activate- und Select-Befehlen die Arbeitsmappe wieder aktiveren, dass zu Beginn der Schleife aktiv war.
Etwa so:


Sub aatest()
Dim d, f, wb As Workbook
Set wb = ActiveWorkbook
For f = 1 To 29
ActiveCell.Offset(1, 0).Select
d = ActiveCell.Value
Workbooks("KW 051").Activate
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = d
wb.Activate
Next f
End Sub

Besser ist es jedoch, wenn du die kompletten Zellwerte des Bereichs in einem Befehl in das andere Blatt überträgst. Beispiel


Sub bbtest()
Range(Cells(10, 1), Cells(38, 1)).Copy
Workbooks("KW 051").Worksheets("XYZ").Cells(10, 1).PasteSpecial Paste:=xlPasteValues
End Sub

Gruß
Franz

AW: for next schleife

29.01.2008 11:19:00

marco

hallo franz,
danke schön es funktioniert.
jetzt habe ich noch eine andere frage:
habe folgenden code:
b = ActiveSheet.Name
Workbooks("1_Quartal08").Activate
Set bereich = Workbooks("1_Quartal08").Sheets("KW 05").Rows(4).Find(b)
wenn ich bei der 3.zeile nach sheets die variable b einsetze , dann funktioniert es nicht.
fehlermeldung = laufzeitfehler 9: index außerhalb des gültigen bereichs.
kannst du mir da weiterhelfen
grüße
marco

AW: for next schleife

29.01.2008 11:32:28

Daniel

Hi
wahrscheinlich hast du dich beim Workbook- oder Sheetnamen vertippt.
btw. sobald eine Exceldatei mal gespreichert wurde, endet der Workbook-Name immer auf ".xls"
Gruß, Daniel

AW: for next schleife

29.01.2008 11:44:00

marco

hallo daniel,
hat sich erledigt.
ich hatte nur nen denkfehler drin.
danke schön.
grüße
marco

Beliebteste Forumthreads (12 Monate)

Forumthread: for next schleife

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread