Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Puxa78 am Mai 18, 2015, 10:37:58 Vormittag

Titel: Office 2010: Makro mit Variablen
Beitrag von: Puxa78 am Mai 18, 2015, 10:37:58 Vormittag

Hallo Zusammen,
ich möchte aus einer Excel-Liste auf eine andere Excel-Liste zugreifen. Dort sind 20 Tabellenblätter hinterlegt. Ich möchte ein Makro erstellen, dass die andere Excel-Liste öffnet, sich das richtige Tabellenblatt heraussucht und dann noch auf dem Tabellenblatt in die richtige Zelle springt und diese aktiviert.

Wie mache ich das am Besten?

Danke für ne schnelle Rücvkmeldung.

Lieben Gruß,
Constanze

Titel: Antw:Office 2010: Makro mit Variablen
Beitrag von: gmg-cc am Mai 18, 2015, 12:30:28 Nachmittag

Moin Constanze,

mache das Ganze einmal per Hand und zeichne den Vorgang mit dem Makrorecorder auf. Dann hast du schon einmal eine Grundlage. Auf dieser Basi können wir dir gewiss weiter helfen, wnn du uns eine Datei (*.xlsm) zur Verfügung stellst und wesentlich mehr Angaben machst, was wann wie geschehen soll.

Titel: Antw:Office 2010: Makro mit Variablen
Beitrag von: Puxa78 am Mai 18, 2015, 13:39:12 Nachmittag

Hallo Günther,

hier das Makro was ich zur Zeit verwende:

Private Sub Worksheet_Beforedoubleclick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$A$350" Then
Angebot1204
End If
End Sub

Sub Angebot1204()
   Dim wkbMappe As Workbook
   Dim blnOffen1 As Boolean
   Dim blnOffen2 As Boolean
   For Each wkbMappe In Workbooks
      If wkbMappe.Name = "2230 AngebotsNummern.xlsx" Then
         blnOffen1 = True
         Exit For
      End If
   Next wkbMappe
   If blnOffen1 Then
      Workbooks("2230 AngebotsNummern.xlsx").Activate
   Else
      Workbooks.Open "G:\2200\Angebote\2230 AngebotsNummern.xlsx", _
        UpdateLinks:=3
   End If

   For Each wkbMappe In Workbooks
      If wkbMappe.Name = "2230 Angebote 15-1200_1220.xlsm" Then
         blnOffen2 = True
         Exit For
      End If
   Next wkbMappe
   If blnOffen2 Then
      Workbooks("2230 Angebote 15-1200_1220.xlsm").Activate
      Sheets("15-1204").Select

   Else
      Workbooks.Open "G:\2200\Angebote\2230 Einzelangebote\2230 Angebote 15-1200_1220.xlsm"
      Sheets("15-1204").Select
   End If
End Sub

Ich möchte jetzt nicht für jedes Tabellenblatt ein eigenes Makro verwenden, sonder hätte gerne eine Makro, dass in der Liste "2230 Angebote 15-1200_1220.xlsm" mit 20 verschiedenen Tabellenblättern nach der Tabellenblattbezeichnung "15-1204" sucht und das richtige Tabellenblatt öffnet. Wenn er dort die Tabellenblattbezeichnung nicht findet, dann soll er diese in der nächsten Liste suchen und so weiter...

Gibt es dafür eine Lösung?

Lieben Gruß,

Constanze