Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.


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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige