ich bräuchte einen Button, mit dem ich von Mappe1 aus in eine andere Mappe springen kann, und zwar so, dass man automatisch in die erste freie Zeile gelangt.
gruß Jochen
Option Explicit
Private Sub ComboBox1_Change()
Dim LRow As Long
If ComboBox1 <> "" Then
Workbooks(CStr(ComboBox1)).Activate
With ActiveWorkbook.ActiveSheet
On Error Resume Next
LRow = .Cells.Find("*", xlValues, 2, 1, 2, False, False).Row
LRow = Application.Max(LRow, .Cells.Find("*", xlFormulas, 2, 1, 2).Row)
On Error GoTo 0
LRow = LRow + 1
Application.Goto .Cells(LRow, 1)
End With
End If
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim i As Integer
With ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen
.ComboBox1.Clear
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
.ComboBox1.AddItem Workbooks(i).Name
End If
Next i
End With
End Sub
Gruß Tino
Option Explicit
Private Sub Workbook_Activate()
Dim i As Integer
With ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen
.ComboBox1.Clear
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
.ComboBox1.AddItem Workbooks(i).Name
End If
Next i
End With
End Sub
kommt als Code in Tabelle1
Option Explicit
Private Sub ComboBox1_Change()
Dim LRow As Long
If ComboBox1 <> "" Then
Workbooks(CStr(ComboBox1)).Activate
With ActiveWorkbook.ActiveSheet
On Error Resume Next
LRow = .Cells.Find("*", xlValues, 2, 1, 2, False, False).Row
LRow = Application.Max(LRow, .Cells.Find("*", xlFormulas, 2, 1, 2).Row)
On Error GoTo 0
LRow = LRow + 1
Application.Goto .Cells(LRow, 1)
End With
End If
End Sub
Gruß Tino