Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Kleiner Fehler?

Forumthread: Kleiner Fehler?

Kleiner Fehler?
04.09.2003 01:03:47
Paul
hallo Rainer

Beim Makro bekomme ich die fehlermeldung das QEe nicht deklriert ist.
Wie stelle ich dies an?

Danke
Gruss Paul
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
warum bleibst du nicht im Thread? o.T.
04.09.2003 01:14:22
xXx
AW: Kleiner Fehler?
04.09.2003 01:14:48
yyy
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, wks As String,Qe as integer
wks = ActiveSheet.Name
If Target.Row <> 1 And Target.Column <> 1 Then Exit Sub
Qe = MsgBox("Sollen neue Tabellenblätter angelegt werden ?", vbQuestion + vbYesNo, "Mappe erstellen")
If Qe = vbNo Then
Qe = MsgBox("Sollen bestehende Tabellenblätter umbenannt werden ?", vbQuestion + vbYesNo, "Mappe modifizieren")
If Qe = vbNo Then Exit Sub
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen umbenannt"
Exit Sub
End If
For i = 2 To Worksheets(wks).Range("A65536").End(xlUp).Row
Worksheets.Add after:=Worksheets.Count
ActiveSheet.Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen erstellt"
End If
End Sub

Anzeige
wer denn du???
04.09.2003 01:18:45
xXx
AW: wer denn du???
04.09.2003 01:22:33
Paul
Hallo

Danke für die Hilfe
Gute NAcht
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum