Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1696to1700
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
Inhaltsverzeichnis

VBA farbige Zellen kopieren und in

VBA farbige Zellen kopieren und in
24.06.2019 11:28:20
Friedrich
Hallo liebe Excel-Freunde, hallo Werner,
ich habe hier schon sehr viel Hilfe erhalten.
In der unten Aufgeführten Excel-Datei ist ein Makro der aus der Tabelle "Kopie" in eine Tabelle "Juni" kopiert.
Der Kopierbereich soll aus der Tabelle "Kopie" C bis F sein und in der Tabelle "Juni" in den Bereich B bis E eingefügt werden.
https://www.herber.de/bbs/user/130556.xlsm
Vielen Dank für eure Hilfe
Gruß Fidi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA farbige Zellen kopieren und in
25.06.2019 01:17:38
Werner
Hallo Fidi,
so:
Sub Auswahl_kopieren()
Dim strBlatt As String, loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Kopie")
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
.Range("$A$1:$CZ$" & loLetzte).AutoFilter Field:=6, Criteria1:= _
RGB(255, 255, 0), Operator:=xlFilterCellColor
With .AutoFilter.Range
strBlatt = Format(.SpecialCells(xlCellTypeVisible).Areas(2).Cells(1, 5), "MMMM")
'## nur diese Codezeile geändert ##
.Columns("C:F").Offset(1).Resize(.Rows.Count - 1).Copy
End With
With Worksheets(strBlatt)
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Row
.Cells(loLetzte, 2).PasteSpecial Paste:=xlPasteAll
End With
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: VBA farbige Zellen kopieren und in
25.06.2019 06:25:10
Friedrich
Hallo Werner,
vielen, vielen Dank.
Gruß Fidi
Gerne u. Danke für die Rückmeldung. o.w.T.
25.06.2019 12:42:15
Werner

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige