Per VBA Workbook in den Vordergrund holen
08.10.2015 10:45:44
Kai
das ist mein erster Beitrag; ich bitte bei groben Fehlern um Nachsicht und Hilfe.
Ich versuche gerade folgendes:
Ich habe eine Arbeitsmappe mit einem leeren Tabellenblatt und rufe per Makro eine userform auf. _
Über diese userform wird eine zweite Arbeitsmappe über
Set oFileDialog = Application.FileDialog(msoFileDialogOpen)
geöffnet und über die Auswahl von verschiedenen Buttons manipuliert. Mit einem Button-Klick soll die userform ausgeblendet und die zweite geöffnete Arbeitsmappe zu direkten Eingabe in den Vordergrund geholt werden. Gerade das klappt aber nicht. Es ist immer die Arbeitsmappe, aus der heraus ich das Makro starte, im Vordergrund.
Folgende Versuche brachten Fehler bzw. gar keinen Effekt:
Private Sub btn_LV_Click()
Dim LastRow As Integer
LastRow = 3
If AktWorkbook Is Nothing Then
MsgBox ("Bitte zuerst Auftrag laden/erzeugen")
Exit Sub
Else
AktWorkbook.Worksheets("LV").Activate
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LastRow + 1, 1).Select
'AktWorkbook.Activate => kein Effekt
'Windows(AktWorkbook.Name).WindowState = xlMaximized => Kein Effekt
'AppActivate AktWorkbook.Name => Fehlermeldung
'AppActivate Application.Caption => Fehlermeldung
Me.Hide
End If
End Sub
Hat jemand eine Idee, wie ich das hinbekomme?
Vielen Dank im Voraus
Kai