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
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)
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!
Hallo Klaus,
besten Dank für die Lösung. Manchmal ist es so einfach.
Danke nochmal.
Gruß Manfred