doppelter blattname

Private Sub OptionButton3_Click() Dim i, j As Byte Dim tbname, monat As String Dim jahr As String j = 1 jahr = InputBox("Bitte geben Sie das Jahr an." _ & vbCrLf & "" _ & vbCrLf & "(Z.B. 2005, 2006, usw.)", "Hallo User " & Application.UserName) If Len(jahr) <> 4 Or Not IsNumeric(jahr) Then MsgBox "Lieber " & Application.UserName & ", die Eingabe war nicht korrekt.", vbOKOnly + vbInformation, "Falsche Jahresangabe" Exit Sub Else tbname = jahr & " - 1." i = Worksheets.Count Sheets("2006 - 1.").Select Sheets("2006 - 1.").Copy After:=Sheets(i) Range("c8:c30").Select Selection.ClearContents Range("A1").Select Sheets("2006 - 1. (2)").Select Sheets("2006 - 1. (2)").Name = tbname Range("C4").Select Range("E8:AI30,AN8:BP30,BU8:CY30,DD8:EG30,EL8:FP30,FU8:GX30").Select Selection.ClearContents Range("C4").Select ActiveCell.FormulaR1C1 = jahr Selection.Font.ColorIndex = 2 Range("A1").Select Unload Me End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
so könnte der Test aussehen, habe auch gleich deinen Code entschlackt. Denn die vielen Select brauchst du nicht, macht den Code nur langsam und läßt den Bildschirm flackern.
Ich hoffe das ich alle Bereiche erwischt habe die du löschen willst !?


Private Sub OptionButton3_Click()
Dim intI As Integer
Dim tbname As String, jahr As String
jahr = InputBox("Bitte geben Sie das Jahr an." & vbCrLf & "" _
& vbCrLf & "(Z.B. 2005, 2006, usw.)", "Hallo User " & Application.UserName)
tbname = jahr & " - 1."
' Kontrolle ob Blatt schon vorhanden.
For intI = 1 To Worksheets.Count
If Sheets(intI).Name = tbname Then
MsgBox "Blatt-Name schon vorhanden !", vbCritical, " Hinweis !"
Exit Sub
End If
Next intI
If Len(jahr) <> 4 Or Not IsNumeric(jahr) Then
MsgBox "Lieber " & Application.UserName & ", die Eingabe war nicht korrekt.", vbOKOnly + vbInformation, "Falsche Jahresangabe"
Exit Sub
Else
Application.ScreenUpdating = False
Sheets("2006 - 1.").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = tbname
Range("C8:C30,E8:AI30,AN8:BP30,BU8:CY30,DD8:EG30,EL8:FP30,FU8:GX30").ClearContents
With Range("C4")
.FormulaR1C1 = jahr
.Font.ColorIndex = 2
End With
Range("A1").Select
Application.ScreenUpdating = True
Unload Me
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

doppelter blattname

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread