Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage zu Zellen kopieren bzw. fortlaufend anfügen

Frage zu Zellen kopieren bzw. fortlaufend anfügen
23.10.2007 16:11:04
Hans-Joachim
Hallo zusammen,
habe mal eine Frage mit ein wenig Quellcode:
For Each z In Worksheets("Quelldaten").Range("A2:V1000")
If z.Value = "z2222pme" Then
Senkrecht = Senkrecht + 1
End If
Next z
Kopie = "A2:V" & Senkrecht
Range(Kopie).Select
Application.CutCopyMode = xlCut
Selection.Copy
Sheets("Temp").Select
Range("A2").Select
bis jetzt ist alles klar so weit wenn ich nun die gesuchten Einträge aber fortlaufend auf Tabellenblatt 2 Kopieren möchte komme ich ins trudeln jedes Mal wenn ich das Täglich machen will löscht Excel die Daten im Temp Blatt und fängt von A2 wieder an die Zeilen zu kopieren wie kann ich dieses Pro´blem am besten lösen. Danke für Eure Hilfe schon mal.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu Zellen kopieren bzw. fortlaufend anfügen
23.10.2007 23:00:43
Daniel
Hi
das mit dem unten anfügen löst du so:
range("A65536").end(xlup).offset(1,0).select
diese Schleife ist auch überflüssig

For Each z In Worksheets("Quelldaten").Range("A2:V1000")
If z.Value = "z2222pme" Then
Senkrecht = Senkrecht + 1
End If
Next 


um die Werte zu zählen gibts ja ne eigene Funktion:
Senkrecht = Senkrecht + worksheetfunction.countif(Worksheets("Quelldaten").Range("A2:V1000"), "z2222pme")
Gruß, Daniel

AW: Frage zu Zellen kopieren bzw. fortlaufend anfügen
24.10.2007 06:18:47
hans-joachim
Hallo Daniel,
danke für deine Antwort werde ich nachher gleich mal aus probieren.
Gruß
Hans-Joachim
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige