Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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

Makro vervollständigen

Forumthread: Makro vervollständigen

Makro vervollständigen
08.11.2004 11:08:16
Achim
Hallo Excel Freunde
Beim weiteren bearbeiten meiner Tabelle hat sich ein neues Problem eingestellt.
Wer kann dieses Makro vervollständigen?
Sheets("Kasse").Select
Range("A2:B22").Select
Selection.FormatConditions.Delete
Selection.Copy

Sheets("Verkauf").Select
Dim i%
Worksheets("Verkauf").Activate
i = 1
Do Until Cells(i, 10).Interior.ColorIndex = 3
i = i + 1
Loop
Cells(i, 10).Select
___________________________________________________________________
Inhalt von ab der roten gefundenen Zelle einfügen.(Sie Kasse oben)
Danke
Achim H.


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro vervollständigen
xule
Hallo
verwende nach Möglichkeit keine Activate oder Select. Dadurch wird der code langsam und das Bild flackert.
So gehts.

Sub tt()
Dim i%
i = 1
Do Until Sheets("Verkauf").Cells(i, 10).Interior.ColorIndex = 3
i = i + 1
Loop
With Sheets("Kasse").Range("A2:B22")
.FormatConditions.Delete
.Copy Sheets("Verkauf").Cells(i, 10)
End With
End Sub

Anzeige
AW: Makro vervollständigen
08.11.2004 11:46:16
Achim
Hallo xule
Danke für deine super hilfe :):):
Ich möchte nicht unverschämt sein aber waäre eine wieter hilfe möglich?
Ich formuliere einfach mal meine frage. Tausen Dank achim H.
Da in der Kasse.Range A2:B22 nicht alle Felder mit Daten gefüllt werden hätte ich noch den Wunsch das die leeren Zellen (Zellen ohne werte)J.... wieder rot gefärbt werden.
Anzeige
AW: Makro vervollständigen
xule
Klar get das.
Im Range() werden alle leeren Zellen vorher rot...
dann wird diese Färbung ja mitkopiert...

Sub tt()
Dim i%
i = 1
Do Until Sheets("Verkauf").Cells(i, 10).Interior.ColorIndex = 3
i = i + 1
Loop
With Sheets("Kasse").Range("A2:B22")
.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3 ' <<<<<<<<<< NEU
.FormatConditions.Delete
.Copy Sheets("Verkauf").Cells(i, 10)
End With
End Sub

Anzeige
AW: Makro vervollständigen
08.11.2004 12:21:26
Achim
Danke dass ist die Lösung:):):):
Gruß Achim H.
;

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