Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
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

Farbe übernehmen

Farbe übernehmen
19.01.2018 18:06:19
Johann
Hallo Liebe Forumgemeinde,
kann mir jemand helfen bei diesem Code
die Quellfarbe zu übernehmen?
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99").ClearContents
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Farbe übernehmen
19.01.2018 18:10:38
Sepp
Hallo Johann,
eim einfachsten so.
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long

With Sheets("Daten")
  lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
  TargetSheet.Range("A2:D99").ClearContents
  .Range("A2:D" & lngLast).Copy
  TargetSheet.Range("A2").PasteSpecial xlPasteValues
  TargetSheet.Range("A2").PasteSpecial xlPasteFormats
  Application.CutCopyMode = False
End With
End Sub

Gruß Sepp

Anzeige
AW: Farbe übernehmen
19.01.2018 18:44:33
Johann
Vielen Dank Sepp,
dank deiner Hilfe hab ich auch andere Codes verbessern können.
Top

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige