Bei klick druck eines Übersichtblattes.

[Franke]

Hallo ich habe mir eine Liste erstellt. Wenn ich jetzt in die Liste gehe und im A6 oder A7 doppelklick mache springt er auf die Druckseite und ich kann den Bereich drucken.
Nun habe ich ein zweites Blatt 2022 eingefügt, Leider funktioniert jetzt mein druck nicht mehr.
Was muss ich ändern im VB das er auch das zweite Blatt 2022 akzeptiert.
Datei hänge ich mal mit dran.

Fehler Mehrdeutiger Namen Kopiere

Danke schon mal im voraus für euere Unterstützung

[Fuzzy62]

Hallo Franke,

du hast zwei Makros mit dem selben Namen "Kopiere" in deiner Datei!

du mußt eines umbenennen oder beide! z.B.

Sub Kopiere_Liste(Zeile As Integer)
Dim WS As Worksheet
Set WS = Worksheets("Liste")

...
End Sub

Sub Kopiere_2022(Zeile As Integer)
Dim WS As Worksheet
Set WS = Worksheets("2022")

...
End Sub

und das doppelcklick Ereignis in Tabelle 2022 ändern

If Target.Column = 1 And Target.Row > 4 Then Kopiere_2022 (Target.Row)

[Fuzzy62]

Hallo,

noch einfache ist es nur ein Makro für beide Tabellenblätter!

Code:

Sub Kopiere(Zeile As Integer)
Dim WS As Worksheet

Set WS = ActiveSheet

    With Worksheets("Druck")
         .Range("J17").Value = WS.Cells(Zeile, 1).Value
         .Range("C6").Value = WS.Cells(Zeile, 2).Value
         .Range("P12").Value = WS.Cells(Zeile, 3).Value
         .Range("B21").Value = WS.Cells(Zeile, 4).Value
         .Range("AB2").Value = WS.Cells(Zeile, 12).Value
         .Range("P28").Value = WS.Cells(Zeile, 13).Value
         .Range("AQ34").Value = WS.Cells(Zeile, 6).Value
         .Range("AQ36").Value = WS.Cells(Zeile, 7).Value
         .Range("AQ38").Value = WS.Cells(Zeile, 8).Value
         .Range("AQ40").Value = WS.Cells(Zeile, 9).Value
         .Activate
    End With
End Sub

Makro einfügen, Datei speichern, schließen und neu öffnen!

[Franke]

Hallo Klaus,

besten Dank für die Lösung. Manchmal ist es so einfach.
Danke nochmal.

Gruß Manfred