Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anzeige
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

Anzeige
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

Anzeige
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige