Office: VBA Problem

Hallo, ich möchte ein Makro benutzen das folgendes abarbeitet:

1. Ich möchte manuell eine x-beliebige Excel Datei öffen und dort ein bestimmten Bereich selektieren
2. Dann öffne ich die Datei mit dem Makro und die UserForm erscheint in der ich eine Auswahl treffe
3. Die UserForm startet ein Makro, dieses Makro soll sich auf den Selektierten Bereich in der zuvor geöffneten beliebigen Excel Datei beziehen- und hier liegt das Problem die Selektion die ich vorher getroffen habe ist ja nicht mehr aktuell weil ich ja danach die Makro Datei geöffnet hab.
Hat jemand eine Idee, wie ich nach dem Öffnen der UserForm in einer anderen Tabelle einen Bereich selektieren kann und dann die Userform starte ohne das die Selektion verloren geht?

Ich benutze Excel 2010.
Danke

Im Anhang befindet sich die Datei mit dem Makro.
Hier mein bisheriger Code:

Code:

Private Sub workbook_open()
UserForm1.Show
End Sub

Code:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    ThisWorkbook.Activate
    With UserForm1
        If OptionButton1.Value = True Then
            Call KSTalt_neu
        ElseIf OptionButton2.Value = True Then
            Call KSTneu_alt
        ElseIf OptionButton3.Value = True Then
            Call LAalt_neu
        ElseIf OptionButton4.Value = True Then
            Call LAneu_alt
        End If
    End With
UserForm1.Hide
End Sub

Code:

Sub KSTalt_neu()
    Dim Zelle As Range
    Dim rngSuche As Range
        For Each Zelle In Selection
            ThisWorkbook.Activate
            With Worksheets("A")
                Set rngSuche = Columns(1).Find(Zelle.Value, lookat:=xlWhole)
                If Not rngSuche Is Nothing Then Zelle.Value = rngSuche.Offset(0, 1)
            End With
        Next Zelle
        Set rngSuche = Nothing
End Sub
Sub KSTneu_alt()
    Dim Zelle As Range
    Dim rngSuche As Range
        For Each Zelle In Selection
            ThisWorkbook.Activate
            With Worksheets("A")
                Set rngSuche = Columns(2).Find(Zelle.Value, lookat:=xlWhole)
                If Not rngSuche Is Nothing Then Zelle.Value = rngSuche.Offset(0, -1)
            End With
        Next Zelle
        Set rngSuche = Nothing
End Sub
Sub LAalt_neu()
    Dim Zelle As Range
    Dim rngSuche As Range
        For Each Zelle In Selection
            ThisWorkbook.Activate
            With Worksheets("A")
                Set rngSuche = Columns(5).Find(Zelle.Value, lookat:=xlWhole)
                If Not rngSuche Is Nothing Then Zelle.Value = rngSuche.Offset(0, 1)
            End With
        Next Zelle
        Set rngSuche = Nothing
End Sub
Sub LAneu_alt()
    Dim Zelle As Range
    Dim rngSuche As Range
        For Each Zelle In Selection
            ThisWorkbook.Activate
            With Worksheets("A")
                Set rngSuche = .Columns(6).Find(Zelle.Value, lookat:=xlWhole)
                If Not rngSuche Is Nothing Then Zelle.Value = rngSuche.Offset(0, -1)
            End With
        Next Zelle
        Set rngSuche = Nothing
End Sub

 

Hi Marius,

falls du nur diese beiden Arbeitsmappen geöffnet hast, kannst du in einer Schleife über die Arbeitsmappen laufen und wenn der Name <> ThisWorkbook.Name ist, dann kannst du diese aktivieren und den selektieren Bereich kopieren - so nach diesem Prinzip:

Code:

Sub Kopieren()
   Dim wkbMappe As Workbook
   For Each wkbMappe In Workbooks
      If wkbMappe.Name <> ThisWorkbook.Name Then
         wkbMappe.Activate
         Selection.Copy ThisWorkbook.Worksheets("A").Range("D1")    '<== Ziel anpassen
         ThisWorkbook.Activate
         Exit For
      End If
   Next wkbMappe
End Sub

Bis später,
Karin

 

Ja, das ist eine gute Idee, danke!!!