Wert in Klammer ändern

Hallo ExcelSpezis
Folgendes Problem steht an....
Hier lese ich alle Zellinhalte einer Spalte aus


'Dim aStrTestnr (Global gelöst)
aStrTestnr = Application.Transpose( _
Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp)))

Um so 100 Werte in Zellen abzufüllen müsste ich 100 solche Einträge platzieren


Range("Kategorie").Value = aStrTestKat(4)

Mit einer For Next Schleife möchte ich nun alle Felder abfüllen


For tn = 4 to 100
Range("Kategorie"& tn).Value = aStrTestKat(4)
Next tn

Mein Problem ist wie kann ich auch bei der Variablen aStrTestKat(...) diesen Wert mit dem tn steuern?
Wenn ich das mache erhalte ich die Fehlermeldung
aStrTestKat(tn) = Index ausserhalb des gültigen Bereiches
Danke schon mal für eine Idee
Gruss
Ron

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Abfrage ob sich der Testname ändert wenn ja = Einfügen eines neuen Headers ''''--------Versuch um alles mit einer For -Next Schlaufe zu lösen---------- tn = 0 'aStrTestname(x) he = 1 'Header For tn = 5 To 27 'hier erweitern he = he + 1 strIstTestname = aStrTestname(tn) If strIstTestname = "" Then Application.Goto Reference:="Header" & he Selection.EntireRow.Hidden = True Else Application.Goto Reference:="Header" & he Selection.EntireRow.Hidden = False Range("Testname" & he).Value = aStrTestname(tn) End If Range("Testnummer" & he).Activate Range("Testnummer" & he).Value = aStrTestnr(tn) With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 90 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Range("Kategorie" & he).Activate Range("Kategorie" & he).Value = aStrTestKat(tn) Range("Geschaefsfall" & he).Activate Range("Geschaefsfall" & he).Value = aStrTestGef(tn) Range("Kontonummer" & he).Activate Range("Kontonummer" & he).Value = aStrTestKonto(tn) Range("Partnernummer" & he).Activate Range("Partnernummer" & he).Value = aStrTestPartner(tn) Range("Description" & he).Activate Range("Description" & he).Value = aStrTestDescription(tn) Range("Result" & he).Activate Range("Result" & he).Value = aStrTestResult(tn) Range("PlzOrt" & he).Value = aStrTestPLZ(tn) Range("GFNr" & he).Value = aStrTestGFnr(tn) Next tn

Hallo,
also erstmal alle Achtung, für "VBA nur mit Recorder" hast Du ja schon ne Menge gebastelt. Brauchst Dich nicht zu schämen, wir haben alle mal klein angefangen.
Also, es liegt wie vermutet am Einlesen. Du Fragst jede Spalte einzeln ab, wenn Spalte K aber nur 5 Einträge hat, dann besitzt das Array aStrTestKonto aber auch nur 5 Elemente, obwohl aStrTestnr vielleicht 25 Elemente besitzt. Wenn Du das alles in einer Schleife abfragst, fliegt Du natürlich beim 6. Element von aStrTestKonto raus. Du musst also sicherstellen daß alle Arrays die gleiche Anzahl an Elementen haben. Das machst Du z.B. indem Du die Spalte mit xlUp abfragst, die mit Sicherheit für jeden Datensatz immer einen Wert hat, sowas wie ein Index. Ich denke dafür ist die Spalte C geeignet, denn jeder Eintrag in Deiner Datentabelle hat immer eine Step- Nr. Wenn Du dort die Anzahl der Zeilen ermittels kommst Du auf jeden Fall auf die Anzahl der Datensätze, und die übernimmst Du für alle Arrays:
x = Cells(Rows.Count, 3).End(xlUp).Row 'letzte beschriebene Zeile in Spalte C
aStrTestnr = Application.Transpose( _
Range(Cells(1, 3), Cells(x, 3)))
'MsgBox aStrTestnr(4)
'Spalte D
'Dim aStrTestDescription (Global gelöst)
aStrTestDescription = Application.Transpose( _
Range(Cells(1, 4), Cells(x, 4)))
'MsgBox aStrTestDescription(4)
'Spalte E
'Dim aStrTestResult (Global gelöst)
aStrTestResult = Application.Transpose( _
Range(Cells(1, 5), Cells(x, 5)))
'MsgBox aStrTestResult(4)
Alles klar? Das X musst Du weiter unten in Deiner Schleife weiterverwenden, denn Du weisst ja nicht ob Du 25 oder 87 Daten eingelesen hast:
For tn = 5 To 5 + x +1
oder (gem. meines Vorschlages)
For tn = 5 To 5 + UBound(aStrTestname)
(ich schreibe x+1 weil x bei 1 anfängt, im Array hat das erstes Element aber den Index 0)
Dann noch 2 Tips:
Benutze immer und unter allen Umständen Option Explicit. Muss in jedem Modul ganz oben stehen, setze am besten bei Optionen den Haken bei "Variablendeklaration erforderlich". Kann mich noch erinnern, das ist am Anfang extrem lästig, später aber extrem hilfreich.
Dann zieh Dir mal das hier rein http://www.online-excel.de/excel/singsel_vba.php?f=78
und versuche das nach und nach umzusetzen. Musst ja nicht gleich alles umschreiben, aber wenn Du neu schreibst, dann denke dran.
Viel Erfolg!
Gruß- Micha

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread