Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählen kopieren Makro

Forumthread: Zählen kopieren Makro

Zählen kopieren Makro
10.11.2004 09:58:50
Achim
Hallo Excel Freunde
Wer kann helfen!!!
Ich habe zwei Tabellenblätter 1.Kasse 2.Verkauf
Nun meine bitte. Ich hätte gerne folgendes Makro:):):)
A)Schaue in Kasse im Bereich B2:B22 und zähle die Eintrage (Zahlen) in dem Bereich
B) Kopiere die Eintäge in Kasse von N2:T2
C)Gehe nach Tabellenblatt Verkauf und suche in der Spalte B... nach der nächsten leeren Zelle
D) Nun kopiere soviel wie voher gezählt in die in die leere Zellen.
Schon mal Danke
Gruß
Achim H.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen kopieren Makro
10.11.2004 18:20:06
Achim
Habe dieses Makro von einem Kollegen bekommen und möchte das auch andre von dieser Lösung provitieren:):)
Dim i%, ii%
ii = 2
With Sheets("Verkauf")
Do While Len(.Cells(ii, "K")) (größer als) (bitte richtiges Zeichen für größer als Verwenden) 0
ii = ii + 1
Loop
End With
With Sheets("KAsse")
i = 2
Do While Len(.Cells(i, "B")) größer als 0
Sheets("Verkauf").Cells(ii, "j") = .Cells(i, "A")
Sheets("Verkauf").Cells(ii, "K") = .Cells(i, "B")
Sheets("Verkauf").Cells(ii, "B") = .Cells(2, "N")
Sheets("Verkauf").Cells(ii, "C") = .Cells(2, "O")
Sheets("Verkauf").Cells(ii, "D") = .Cells(2, "P")
Sheets("Verkauf").Cells(ii, "E") = .Cells(2, "Q")
Sheets("Verkauf").Cells(ii, "F") = .Cells(2, "R")
Sheets("Verkauf").Cells(ii, "G") = .Cells(2, "S")
Sheets("Verkauf").Cells(ii, "H") = .Cells(2, "T")
i = i + 1
ii = ii + 1
Loop
End With

Gruß an alle excel Freunde
Achim H.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige