Range mit Inputbox (Type:=8)
01.02.2004 08:53:00
Erich M.
da ich laufend aus einem Tabellenblatt Teile entweder in eine neue Datei
oder in ein neues Tabellenblatt kopieren muss, habe ich mir ein Makro mit
einer UF erstellt. Funktioniert soweit auch.
Da ich kürzlich aus dem Forum einen Tipp (leider weiss ich nicht mehr von
wem) über die Verwendung der Inputbox (Type:=8) erhalten habe, will ich
dies einbauen - aber daran scheitere ich jetzt:
Option Explicit
Private Sub CommandButton3_Click()
Dim Sh As Worksheet
Dim sName As String, sDatei As String, myRange As Range
If OptionButton1 = True Then _
If TextBox3.Text = "" Then MsgBox "Bitte Blattname eintragen.", 48, "Hinweis": Exit Sub
If OptionButton2 = True Then _
If TextBox2.Text = "" Then MsgBox "Bitte Blattname eintragen.", 48, "Hinweis": Exit Sub
sDatei = TextBox3.Text
sName = TextBox2.Text
If OptionButton1 = True Then
Workbooks.Add
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone
Selection.PasteSpecial Paste:=xlFormats
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=sDatei
End If
If OptionButton2 = True Then
''''''' Hier kein Erfolg !!!
'Set myRange = Application.InputBox("Wählen Sie den Bereich", "Nachbearbeitung", Type:=8)
'myRange.Select
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
MsgBox "Blatt besteht; leider ist Kopiervorgang fehlgeschlagen", 48, "Hinweis"
Sh.Select
Application.CutCopyMode = False
Unload Me
Exit Sub
End If
Next Sh
'''''''' Hier kein Erfolg !!!
'Set myRange = Application.InputBox("Wählen Sie den Bereich", "Nachbearbeitung", Type:=8)
'myRange.Select
Sheets.Add.Name = TextBox2.Text
''''''''Hier kein Erfolg !!!
Set myRange = Application.InputBox("Wählen Sie den Bereich", "Nachbearbeitung", Type:=8)
myRange.Select
' Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone ''''''hier Fehlermeldung 1004 !!!
Selection.PasteSpecial Paste:=xlFormats
Range("A1").Select
Application.CutCopyMode = False
End If
Unload Me
End Sub
Code eingefügt mit: Excel Code Jeanie
Mit der InputBox markiere ich den zu kopierenden Teil und möchte ihn dann
in das neue Tabellenblatt (= mit OptionButton2 benannt) kopieren - aber egal wo
ich den Code-Teil eintrage - ich erhalte immer eine Fehlermeldung 1004 ??
Besten Dank für eine Hilfe!!
mfg
Erich