AW: Tabellenblatt in einer Arbeitsmappe austauschen
18.11.2007 21:31:10
Jonas
Sub kru()
Application.ScreenUpdating = False
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Jahr As String
Dim ID As Integer
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open(Application.GetOpenFilename)
Jahr = InputBox("rwkru")
ID = wb1.Sheets(Jahr).Index
Application.DisplayAlerts = False
wb1.Sheets(Jahr).Delete
Application.DisplayAlerts = True
Select Case ID
Case 1
wb2.Sheets(Jahr).Copy before:=wb1.Sheets(ID)
Case Else
wb2.Sheets(Jahr).Copy after:=wb1.Sheets(ID - 1)
End Select
wb2.Close
Sheets("Start").Select
Application.ScreenUpdating = True
End Sub
Hmmmm...im Ernst...
wenn ich das Makro aufrufe, muss ich "rwkru" als Passwort in eine Passwortabfrage eingeben. !?
Aber das ist schon so auch nicht schlecht.
Ein Problem habe ich aber noch, wenn ich bei der Auswahl der zweiten Tabelle doch keine Auswahl treffe und das Suchfenster mit Abbrechen verlassen will...dann bekomme ich einen VB-Fehler.
Man sagt mir, dass "Falsch.xls" nicht gefunden wurde und markiert mir folgende Zeile im Editor
Set wb2 = Workbooks.Open(Application.GetOpenFilename)