hi Experten,
Ich habe ein Daten blatt in der in einer Spalte Verschieden Obstsorten stehen. (zum beispiel)
Nun will ich gerne alle Äpfel in ein Extra Datenblatt kopieren.
Meine Idee wäre (modulo Tippfehler):
option Explicit
Sub kopieren
Dim i as Intger, J as Integer, k as Integer
Dim letzteZeile as Integer, Spaltenende as Integer
dim wksStart as Worksheet, wksZiel as Worksheet
set wksStart as Worksheets("Obst")
Set wksZiel as Worksheets("Äpfel")
LetzeZeile = 1000
SpaltenEnde = 8
k= 1
for i = 1 to letzteZeile
if wksStart.Cells (i,3).value="Apfel" then ' wenn in C die Obstsorten stehen
For J = 1 to Spaltenende
wksziel.cells(k,j) = wksstart.cells(i,j)
next j
k=k+1
ENd If
Next i
Ist jetzt hier geschrieben und kann sein, dass da noch ein Tippfehler drin ist.
Aber gibt es eine bessere (Schnellere) Lösung? Weil ich muss das für alle Birnen, Apfel,… machen. Und ich habe Angst, dass ich dann ewigkeiten vor der flimmerndern Ksite sitze und nciht tun kann.
Liebe Grüße Winter
hallo Experten,
Nch dem ich mir mein datenblatt mal angeschaut habe, ist mir eine weitere Frage eingefallen.
Wie verhält sich den das Verhältnis DatenMenge und Dateigröße
Die DatenMenge wird ja verdopppelt. (Jede zeile steht in zwei Blättern)
Aus einem Datenbaltt mit
äpfel
Birnen
Kirschen
mache ich ja
insgesamt 4 (Obst und Äpfel, …)
Ist das ungefähr dopplet so viel oder wird das Exponetial mehr pro Datenblatt?
Grüße Winter
Wie verhält sich den das Verhältnis DatenMenge und Dateigröße
Die DatenMenge wird ja verdopppelt. (Jede zeile steht in zwei
Blättern)
Hallo Winter,
du kannst anfangen Mappen anzulegen, wo du nur in A1 von Blatt1 was reinschreibst, dann die nächste mit Einträgen in A1 und A2 usw.
Dann kannst du dir die dateigrößen anschauen und bemerkst vielleicht eine Regelmäßigkeit.
Danach kannst du die Dateien löschen und auch vergessen daß du glaubtest was regelmäßiges festgestellt zu haben.
Im Betrieb ist es so, Exceldateien wachsen in der Dateigröße nach einem völlig unbekanntem Schema.
Machs wie alle, wenn die Datei zu groß wurde, kopiere einzeln die Blätter, ggfs. die Makros, und speicher diese Datei neu ab und freu dich daß sie viel schlanker ist.
das Verhältnis Datenmenge und Dateigröße hat m.E. sehr wenig mit der Datenmenge zu tun.
Ich mutmaße, Bearbeiten–Rückgängig und Dateiwiederherstellen u.ä. blähen das auf.
Aber ich weiß das nicht.
Gruß
Reinhard
Grüezi Winter
Ich habe ein Daten blatt in der in einer Spalte Verschieden
Obstsorten stehen. (zum beispiel)
Nun will ich gerne alle Äpfel in ein Extra Datenblatt
kopieren.
[Code gesnippt]
Aber gibt es eine bessere (Schnellere) Lösung? Weil ich muss
das für alle Birnen, Apfel,… machen. Und ich habe Angst,
dass ich dann ewigkeiten vor der flimmerndern Ksite sitze und
nciht tun kann.
Das ist doch IMO eine klassische Filter-Aufgabe - in diesem Falle für den Spezialfilter. Wenn Du diesen mit VBA automatisierst kommst du nicht mal dazu daran zu denken, dir eine Tasse Kaffee zu besorgen…
Die folgende Mappe kannst du direkt verwenden:
-
ins erste Tabellenblatt kopierst Du deine Daten mit den Spaltenüberschriften
-
alle Tabellenlbätter ausser 1 und 2 kannst Du löschen
-
ins zweite Tabellenblatt kopierst Du nur die Spaltenüberschriften in Zeile 1 und löschst alle Einträge in den Zeilen 2 und 3
In der Spalte mit dem Obst trägst Du nun ‚Äpfel‘ ein und erhältst sofort die Daten gefiltert.
- kopiere das Tabellenblatt sooft wie Du Obstsorten hast und ändere jedesmal die ‚Äpfel‘ in ‚Birnen‘ oder andere Früchte.
http://users.quick-line.ch/ramel/Files/spezialfilter…
–
Mit freundlichen Grüssen
Thomas Ramel
Ich mutmaße, Bearbeiten–Rückgängig und Dateiwiederherstellen
u.ä. blähen das auf.
Aber ich weiß das nicht.
Gruß
Reinhard
Hi
Danke
habe fast so etwas vermutet.
Liebe Grüße
Winter (der Deutschland wieder fest im Griff hat)