Office: Excel VBA Copy wenn wert zwischen zwei Zahlen

Ok der Code funktioniert schonmal - prinzipiell. Dafür auf jedenfall Danke.

Jetzt habe ich aber folgendes Problem:

Die "Tabelle" in die die Daten eingefügt werden sollen hat eine vordefinierte Größe von 9999 Zeilen. In Spale B steht die laufende Nummer von 1 - 9999.

Wenn ich den Code nun ausführe wird immer nur in Zeile 10.000 der Inhalt eingefügt. Und wenn ich weitere Daten einfüge, dann wird immer der Inhalt in Zeile 10.000 ersetzt.

 

Okay meine letzte Antwort war etwas unausführlich erklärt.

Mein Code sieht momentan so aus:

PHP:

         For i = 2 To intLastQuelle
If.Cells(i, 2) >= von And .Cells(i, 2) <= bis Then
.Range("C" & i & ":K" & i).Copy
wbZieldatei.Sheets("Statistik").Range("C" & .Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).Row).PasteSpecial Paste:=xlPasteValues
End If


 

Hi, ich vermute vor .Cells fehlt noch wbZieldatei.Sheets("Statistik"), da sich das weiter oben stehende With auf die Quelldatei bezieht.

Bei Rows ist das egal, da alle Blätter die gleiche Zeilenzahl haben.

 

Hallo,

und ich frage mich, weshalb du Lösungsvorschläge nicht benutzt.

Gruß Werner

 

Ok... mein Fehler. Ich habe die Verschachtelung in die zweite With / With End Abfrage übersehen. Habe das nun eingebaut und es funktioniert einwandfrei.

Vielen Dank nochmal *biggrin.gif*

 

Guten Morgen,

ich habe noch eine weitere Frage zu dem bereits geschriebenen Code.

PHP:

         With wbZieldatei.Sheets("Statistik")
.Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row).PasteSpecial Paste:=xlPasteValues
End With


 

Der Hintergrund für meine Frage ist folgender:

Ich habe momentan 900 "Test" Werte in meiner Statistik eingetragen.
Durch die größe der Statistik wird das ausführen der Makros, welche neue Daten in die Statistik eintragen sollen extrem langsam.
Ich vermute, dass es momentan daran liegt auf welche Weise die letzte Zeile ermittelt wird - bin mir da aber auch nicht ganz sicher.