Range mit Zahlenreihen füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub versiv() Dim rCell As Range Dim iCnt As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rCell In ActiveSheet.Range("mgziel2") If iCnt = 0 Or iCnt = 152 Then iCnt = 1 iCnt = iCnt + 1 rCell.Value = iCnt Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Sub versiv() Dim rCell As Range Dim iCnt As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rCell In ActiveWorkbook.Sheets("Tabelle4").Range("mgziel2") If iCnt = 0 Or iCnt = 152 Then iCnt = 1 iCnt = iCnt + 1 rCell.Value = iCnt Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Sub aktualisiere_Importcodes() Dim aBook As Workbook Dim wksZiel As Worksheet Dim rngziel2 As Range Dim rCell As Range Dim iCnt As Integer Dim letzteZeile As Long Set aBook = ThisWorkbook Set wksZiel = Sheets("Import") Application.Calculation = xlCalculationManual Application.ScreenUpdating = False letzteZeile = Range("letzte_Zeile").Value With wksZiel Set rngziel2 = .Range(.Cells(4, 3), .Cells(.Range("letzte_Zeile").Value, 3)) Debug.Print rngziel2.Address For Each rCell In Workbooks("abook").Worksheets("wksziel").Range("rngziel2") If iCnt = 0 Or iCnt = 153 Then iCnt = 1 iCnt = iCnt + 1 rCell.Value = iCnt Next End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

Hallo Hansueli
Vielen Dank für deine Rückmeldung. Ich habe den Code abgeändert, weil es sich hier nur um einen Teil eines Gesamtcodes handelt, der ins "Gesamtkonzept" hineinpassen muss.
Betreffend Workbook("aBbook") ist mein Verständnis folgendes:
- am Beginn des Codes steht: Dim aBook As Workbook
- etwas weiter unten steht: set aBook = This Workbook
- im Ergebnis erhalte ich mit debug.print aBook.name die Filebezeichnung mit der Extension xls
"Der Code wird nicht funktionieren, wenn er für eine andere Arbeitsmappe gedacht ist ..."
- Das ist nicht der Fall
- ich weiss einfach nicht, welches Worksheet gerade aktiv ist doch die Arbeitsmappe ist immer aktiv, wenn ich den Makro aufrufe.
Ins Worksheet Import will ich aus anderen Excel-Dateien (die geschlossen bleiben) Daten importieren, und zwar aus jeder Datei verschiedene Werte aus einigen Spalten der Zeilen 3 - 152.
Die Anzahl Dateien, aus denen Daten importiert werden ist variabel und die entsprechenden Dateinamen werden in einem anderen Worksheet des Files erfasst.
Das Worksheet "Import" wird für den Import wie folgt vorbereitet. Angenommen, es seien 10 Files zu importieren. Der Name der ersten Datei wird ab Zelle B3 150 x eingetragen (von B3 bis B152). Dann der der zweite Name ab B153 bis B302, usw. Der 150. Eintrag des Dateinamens der 10. Datei steht dann in B1502.
Anschliessend wird in der Spalte A von A3 bis A1502 der Pfad der Dateien eingetragen (ist immer der gleiche).
Nun brauche ich noch in Spalte C von C3 bis C1502 10 mal die Zahlen 3 bis 152.
In der Zeile 2 des Worksheets "Import" steht dann in den Spalten D bis O (nämlich A,B,C,D,E,F,G,H,I,J,K,L) eine Spaltenreferenz.
Nun sind die Informationen vollständig, damit ich die Daten importieren kann. Der erste Eintrag erfolgt in Zelle D4, der letzte in Zelle O1503.
Für jedes zu importierende Feld habe ich nun im Worksheet "Import" die benötigte Information, nämlich in Spalte A den Pfad, in Spalte B den Dateinamen, in den Spaltenkopfen D - O die Spaltenreferenz und in Spalte C die Zeilenreferenz.
Der Code, den ich nun noch vervollständigen will, soll mir die Zeilenreferenz in Spalte C reinschreiben, ab Zeile 4 bis 1503 (falls Daten aus 10 Dateien zu importieren sind). Da die Anzahl der zu importierenden Files immer ändert, ist auch der zu füllende Range in Spalte C variabel.
Ich hoffe, dass ich mich einigermassen verständlich ausdrücken konnte.
Freundlicher Gruss
Peter

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread