Variable definieren

Hallo,
leider hänge ich noch immer an meinem Problem, dass sich ein Makro ewig hinzieht. Schneller laufen die Schleifen, wenn ich die automatische Berechnung ausschalte. Ich brauche diesbezüglich einen kleinen Anschub...
Mein Makro liest div. Dateien aus, die in der Zeilenanzahl unterschiedlich sind, aber sonst vom Aufbau her gleich.
Dafür wird in der Zieldatei in einer Spalte der Name des zu lesenden Tabellenblatts als Variable gesetzt. Im selben Blatt gebe ich die zu lesende Spalte ebenfalls in eine Variable über:
QUCell = Workbooks(myWB).Sheets("Lesen").Cells(LZ, 4).Value
In Spalte 3 des Blattes lesen steht also der zu lesende Spaltenbuchstabe - die Zeile schreibe ich bisher als Variable QZ ins Tabellenblatt, so dass sich in Spalte 4 die zu lesende Zelle "aufbaut". Wie kann ich meine Zeilenvariable sinnvoll in die o.a. Variablendefinition aufnehmen:
QUCell = Workbooks(myWB).Sheets("Lesen").Cells(LZ, 3&QZ).Value
kann nicht funktionieren, aber sicher gibt es eine Möglichkeit, die Quellzeile (QZ) so einzubinden. Hat jemand eine Idee?
Gruß
Ron

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
ich versuche es nochmal etwas bildlich. Ich habe eine Zieldatei, die Daten aus 100 weiteren Dateien "Sammelt". Dazu definiere ich in meiner Zieldatei im Ordner "Lesen" in Spalte B den Ordner der Zieldatei, der angesprochen werden soll. In Spalte C die Spalte...
Spalte A Spalte B Spalte C
zu lesendes Feld zu lesender Ordner der Zieldateien zu lesende Spalte
Kunde Kundendaten F
Auftrag 1 Auftragsdaten G
Umsatz Auftragsdaten H
usw.
Ich habe mir sowohl den Ordner also die Daten aus B als Variable definert, wie auch die zu lesende Zelle aus Spalte C - allerdings mit dem Kunstgriff, dass ich in D die Lesezeile über das Makro eintrage und somit in Spalte D Zelle F15 als anzusprechen steht. So weit, so gut. Es funktioniert auch, jedoch will ich die Schleife schneller laufen lassen, Excel Berechnungsfunktion für das Auslesen ausschalten. Das funktioniert aber nicht, da die Funktion aus Spalte D dann nicht aktualisiert werden kann (Berechnung aus)
Daher sieht meine Variablendefinition für die Quellzelle derzeit so aus:
QUCell = Workbooks(myWB).Sheets("Lesen").Cells(LZ, 4).Value
Ich würde es halt gerne so machen, dass er den Buchstaben der auszulesenden Spalte ausliest und die Variable für die Zeile (als Variable QZ definiert) selber "hinzufügt".
Aber so funktioniert es nicht:
QUCell = Workbooks(myWB).Sheets("Lesen").Cells(LZ, 3 & QZ).Value
Ich suche halt eine Idee, die mir diese Ansprache ermöglicht. Alternativ schalte ich die Berechnung kurz an, wenn ich die nächste Quellzeile in mein Leseblatt eintrage...
Ist es jetzt besser zu verstehen?
Ron

dim ZeileNr as Long dim SpalteNr as Long dim SpalteBuchstabe as String ZeileNr = 1 SpalteNr = 1 SpalteBuchstabe = "A" Cells(ZeileNr, SpalteNr).Select Cells(ZeileNr, SpalteBuchstabe).Select Range(SpalteBuchstabe & ZeileNr).Select

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread