Erster Buchstabe VBA-Befehl nicht groß

Hallo Wissende,
habe gerade nachfolgenden Code gebastelt.
Worksheets(n).name wird nicht in
Worksheets(n).Name umgewandelt!?
Gruß
Reinhard

Option Explicit
Sub Löschen()
Dim strAntwort As String, n As Byte
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.EnableEvents = False 'Ereignissprozeduren deaktivieren.
strAntwort = MsgBox("Achtung: Das gesamte Tabellenblatt wird zurückgesetzt!", _
vbExclamation + vbOKCancel, "Hinweis")
If strAntwort = vbCancel Then Exit Sub 'Bei "Abbrechen" abbrechen.
Call Lösch(ActiveSheet.name)
strAntwort = MsgBox("Die anderen Tabellenblätter ebenfalls zurücksetzen?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Frage")
If strAntwort = vbYes Then
For n = 1 To Worksheets.Count
If Worksheets(n).name <> "Zusammenstellung" Then Call Lösch(Worksheets(n).name)
Next n
MsgBox "Alle Monate auf Null gesetzt.", vbInformation, "Information"
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True 'Ereignissprozeduren aktivieren.
Application.ScreenUpdating = True      'Bildschirmaktualisierung einschalten.
End Sub
Sub Lösch(name As String)
Dim n As Byte
With Worksheets(name)
.Unprotect
.Range("H8:H38").ClearContents
For n = 8 To 38
.Cells(n, 7).FormulaLocal = "=Wenn(F" & n & ">0;""0:00"";"""")"
Next n
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard,
normalerweise kannst du einen Eigenschaftsnamen (in diesem Falle .Name) auch als Variable benutzen, da VBA aus dem Zusammenhang erkennt, ob es eine Eigenschaft oder eine Variable sein soll (im Gegensatz zu den vordefinierten Schlüsselwörtern wie z.B. Sub, Function, For usw., die nicht benutzt werden dürfen).
Allerdings scheint VBA ein Problem damit zu haben, dass du die Eigenschaft .name als kleingeschriebene Variable deklariert hast und wandelt deshalb den Eigenschaftsnamen auch in Kleinschreibung um.
Hier nun die Lösung:
Schritt Nr.1:
Du kannst jetzt Sub Lösch(name As String) in Sub Lösch(Name As String) umbenennen, die Eigenschaft .Name wird nun auch wieder als Großbuchstabe dargestellt.
Schritt Nr.2:
Um weitere Probleme zu vermeiden, änderst du nun den Variablennamen Name in einen ungefährlichen Namen um (Wichtig: Schritt 1 musst du zuvor ausgeführt haben !)
Sollte diese Lösung zu Problemen führen, kannst du den Code wie von PeterW beschrieben in ein neues Modul in einer neuen Arbeitsmappe reinkopieren, zuvor musst du aber den Variablennamen name umgeändert haben !!!
Gruß Klaus

Hallo Peter, ich bin ja durch Druck von K.Rola & Boris schon auf dem ege der Läuterung und benutze Option Explicit*g Ich muss mir endlich mal eine xla basteln, wo schon ein Modul eigefügt ist und eine Sub in der Schon Dim intSpalte as integer, Dim lngZeile as long, dim n as long (n werde ich nie intn nennen *g) lngZeile=Range("a65536).end(xlup).row und eine Schleife For n= 1 to lngZeile usw steht, evtl mehrere Xlas Einfach um Zeit einzusparen, siehe meiner Anfrage wegen dem Javateil in Offtopic. Gruß Reinhard

Beliebteste Forumthreads (12 Monate)

Erster Buchstabe VBA-Befehl nicht groß

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread