Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wert in sichtbare Blätter kopieren

Wert in sichtbare Blätter kopieren
23.04.2003 17:37:32
Markus Klement
Hallo,

ich öfnne mit HIlfe eines Makros aus einer Datei heraus mehrere andere dateien und drucke in diesen die eingeblendeten Blätter aus, mit hilfe dieses Makros.

Sub PrintVisibles()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
wks.PrintOut Copies:=1
End If
Next wks
End Sub

Das klappt auch super.

Doch nun möchte ich in jedem dieser Blätter in Zelle A2 den Wert meiner Ursprungsdatei Zelle B7 einfügen.

Wie mache ich das???

Vorab schon einmal danke für Eure Hilfe
Markus

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

Betreff
Datum
Anwender
Anzeige
Re: Wert in sichtbare Blätter kopieren
23.04.2003 18:36:06
andreas e

Hallo Markus,

völlig ungetestet !!

Sub PrintVisibles()
Ursprung = range("B7").value
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
range("A2").value = Ursprung
wks.PrintOut Copies:=1
End If
Next wks
End Sub

gruß
andreas e

Klappt nicht
24.04.2003 09:53:00
Markus Klement

Hi Andreas,

danke, aber es funktioniert nicht..

Gruß
Markus

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige