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

Zellen via Makro verknüpfen

Zellen via Makro verknüpfen
07.02.2003 12:43:13
Endrik
Hallo an alle Profis,

Danke erst mal an dieser Stelle Bernd Held für die letzte Lösung.
Komme aber irgendwie nicht weiter. Darum diese neue Anfrage.
Im folgenden der Code für die Monatblätter und in diese erstellten soll gleich ein Makro/VBA eingebunden sein das meine Eintragungen in Blatt 1 erste Spalte gleich in alle anderen Blätter übernommen werden (selbe spalte).

Das ist der Code für die Monatsblätter:
For Mon = 1 To 12
Monat = DateSerial(Jahr, Mon, 1)
Sheets.Add before:=Worksheets(Mon)
ActiveSheet.Name = Format(Monat, "mmm.yyyy")
[A1] = Format(Monat, "mmmm_yyyy")
[A2] = "Name, Vorname"
Columns(1).ColumnWidth = 13.86

Aber irgendwie find ich keinen Lösungsansatz, das ist das Makro
für die auswahl:

Sub Datenübertragung_Blätter()
Sheets(Array("Jan.2003", "Feb.2003", "Mrz.2003", "Apr.2003", "Mai.2003", "Jun.2003", _
"Jul.2003", "Aug.2003", "Sep.2003", "Okt.2003", "Nov.2003", "Dez.2003")).Select
Sheets("Dez.2003").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-3
Range("A5").Select
End Sub

und ich will die in "" stehenden Sachen ja gleich so ausführen
hab es mit select all versucht aber das funktioniert nicht.

Ich hab es noch mal so versucht aber leider kein erfolg:

Sub Datenübertragung_Blätter()

Sheets("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12").Select
Sheets("Sheet12").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-3
Range("A5").Select
End Sub


vielleicht hat jemand eine Idee
Danke endrik



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

Betreff
Datum
Anwender
Anzeige
Re: Zellen via Makro verknüpfen
07.02.2003 12:53:51
Alex F

probiers mal hiermit

Sub AllSheets()
Dim elem As Worksheet

For Each elem In ActiveWorkbook.Worksheets
elem.Cells(1, 1) = "Test"
Next elem
End Sub

Re: Zellen via Makro verknüpfen
07.02.2003 12:58:02
Steffan

Hallo Endrik,

das ganze gehört als Makro in den Codebereich Deiner Tabelle, in die Du die Werte einträgst:

Steffan.

Re: Zellen via Makro verknüpfen
07.02.2003 13:26:57
endrik

danke erst mal Steffan und AlexF,

aber irgendwie klappt das nicht so wie ich das will. Ich erstelle die Arbeitsmappe über eine Userform in Verbindung mit dem Kalendermakro und das neue Makro soll gleich mit dem neu erstellten Kalender funktionieren bzw geladen werden.
Ich hab versucht Eure Lösungen einzubinden geht aber nicht.
Danke endrik

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige