Thema Datum  Von Nutzer Rating
Antwort
Rot Makro nach Wert in Zelle Starten
09.10.2020 13:56:21 UweMü
NotSolved
09.10.2020 14:19:02 Gast46196
NotSolved
09.10.2020 14:39:13 Gast30180
NotSolved
09.10.2020 14:51:34 Gast28683
NotSolved
12.10.2020 08:20:50 Gast63470
NotSolved
12.10.2020 13:54:23 Gast87425
NotSolved
13.10.2020 12:25:52 Gast43347
NotSolved
13.10.2020 14:08:30 UweM
NotSolved
13.10.2020 16:20:53 Gast65285
NotSolved
14.10.2020 07:03:13 UweM
NotSolved

Ansicht des Beitrags:
Von:
UweMü
Datum:
09.10.2020 13:56:21
Views:
84
Rating: Antwort:
  Ja
Thema:
Makro nach Wert in Zelle Starten

Hallo,

 habe folegndes kleines Makro aufgezeichnet bzw. bisschen erweitert:

und eigentlich keine Ahnung von VBA

aber es funktioniert so wie geplant.über Startbutton

In Modul1

Sub Druck_1()
'
' Druck_1 Makro
'

'
    Dim WkSh_Q  As Worksheet
Dim WkSh_Z  As Worksheet

   Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
   Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
  
   WkSh_Q.Range("j3:m3").Copy
   WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
   Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
    Range("a1:d43").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Range("p4:p109").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("Q3").Select
End Sub

jetzt soll es automatisch gestartet werden wenn in A1 Start steht ( kommt aus sverweis)

Nach goole - suche dann in Arbeitsmappe nachfolgendes Makro eingefügt ..

Private Sub Workbook_Open()
    If Worksheets("Tabelle1").Range("a1") = "Start" Then Druck_1
End Sub

aber geht nicht ??

Kann jemand helfen?

Vielen Dank

Uwe

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro nach Wert in Zelle Starten
09.10.2020 13:56:21 UweMü
NotSolved
09.10.2020 14:19:02 Gast46196
NotSolved
09.10.2020 14:39:13 Gast30180
NotSolved
09.10.2020 14:51:34 Gast28683
NotSolved
12.10.2020 08:20:50 Gast63470
NotSolved
12.10.2020 13:54:23 Gast87425
NotSolved
13.10.2020 12:25:52 Gast43347
NotSolved
13.10.2020 14:08:30 UweM
NotSolved
13.10.2020 16:20:53 Gast65285
NotSolved
14.10.2020 07:03:13 UweM
NotSolved