Scripterweiterung benötigt!

Forumthread: Scripterweiterung benötigt!

04.02.2004 16:26:12

Markus H.

Moin,
ich wieder.
habe dieses Script aufgezeichnet und leicht von hand verändert:


Private Sub Go_Click()
Sheets("Rechnung").Copy After:=Sheets(1)
Sheets("Rechnung").Select
Sheets("Rechnung (2)").Name = "RGNR" & Range("A1")
Sheets("Rechnung").Select
End Sub

Jetzt möchte ich erstens nicht das der go button mitkopiert wird! also der soll auf dem kopierten arbeitsplatz nciht mehr enthalten sein!
also zweites wäre es gut wenn geprüft wird ob bereits ein tabellenblatt mit diesem namen besteht, und wenn ja die Frage ob es ersetz werden soll oder nicht.
Vielen Dank!
MfG
Markus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Scripterweiterung benötigt!

04.02.2004 18:19:51

GraFri

AW: Scripterweiterung benötigt!

04.02.2004 18:19:51

GraFri

Hallo

Private Sub Go_Click()
Dim n       As Integer
Dim Antwort As Integer
    For n = 1 To Sheets.Count
        If Sheets(n).Name = "RGNR" & Range("A1") Then
            Antwort = MsgBox("Das Tabellenblatt " & Sheets(n).Name & vbCrLf & _
                             "existiert schon" & vbCrLf & vbCrLf & _
                             "Wollen Sie es ersetzen?", vbCritical + vbYesNo, _
                             "WARNUNG")
            If Antwort <> 6 Then
                Exit Sub
            Else
                Application.DisplayAlerts = False
                Sheets(n).Delete
                Exit For
            End If
        End If
    Next n

Application.ScreenUpdating = False

    Sheets("Rechnung").Copy After:=Sheets(1)
    Sheets("Rechnung").Select
    Sheets("Rechnung (2)").Name = "RGNR" & Range("A1")
    Worksheets("RGNR" & Range("A1")).OLEObjects("Go").Delete
    Sheets("Rechnung").Select
Application.DisplayAlerts = True

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Mit freundlichen Grüßen, GraFri

Forumthread: Scripterweiterung benötigt!

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread