Wert einer Zelle kopieren

Forumthread: Wert einer Zelle kopieren

25.07.2022 17:50:12

Wallenfang

Hallo zusammen,
habe vor einigen Tagen von MCO folgenden Code erhalten bei dem der Reihe nach die Zellen K4 bis K11 nach K2 kopiert werden.
Funktioniert einwandfrei:
For Each zeil In Range("K4:K11").SpecialCells(xlCellTypeConstants)
zeil.Copy Range("K2")
ThisWorkbook.Sheets("Einsatzlisten").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & zeil.Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next zeil
Jetzt sind die Werte in K4:K11 das Ergebnis einer Formel, sodass ich einen Laufzeitfehler in der Codezeile:
For Each zeil In Range("K4:K11").SpecialCells(xlCellTypeConstants)
auftaucht.
Wie muss der Code lauten, damit nicht die Formel aus K4:K11 sondern nur der Wert (Formelergebnis) kopiert wird.
Gruß Roland

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

SpecialCells

25.07.2022 17:52:21

{Boris}
AW: Wert einer Zelle kopieren

25.07.2022 18:10:33

GerdL
AW: Wert einer Zelle kopieren

25.07.2022 19:10:39

Daniel
AW: Wert einer Zelle kopieren

25.07.2022 19:34:25

Wallenfang

AW: Wert einer Zelle kopieren

25.07.2022 18:10:33

GerdL

Hallo Roland,
bei acht Zellen wollen wir nicht übertreiben.


Dim C As Range
With ThisWorkbook.Sheets("Einsatzlisten")
For Each C In .Range("K4:K11").Cells
If C  "" Then
.Range("K2") = C.Text
.ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & C.Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next C
End With

Gruß Gerd

AW: Wert einer Zelle kopieren

25.07.2022 19:10:39

Daniel

Hi
solche Fragen kannst du dir auch einfach mit dem Makrorecorder selbst beantworten.
das SpecialCells ist ja die Umsetzung er Menüfunktion START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE AUSWÄHLEN.
hier kannst du ja verschiedene Varianten auswählen, z.B. auch, ob man die Selektion auf Zellen mit festen Werten (Konstanten) oder Formeln einschränken will.
Spiele einfach mit den verschiedenen Optionen und zeiche es mit dem Markorecorder auf.
aus dem aufgezeichneten Code kannst du dann ablesen, wie du die verschiedenen Optionen programmieren musst.
Gruß Daniel

AW: Wert einer Zelle kopieren

25.07.2022 19:34:25

Wallenfang

Super! Vielen Dank für die Lösung und die Tipps.
Habe wieder was dazugelernt,
VG Roland

Beliebteste Forumthreads (12 Monate)

Forumthread: Wert einer Zelle kopieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread