Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleiner Fehler?

Kleiner Fehler?
03.09.2003 23:03:47
Paul
hallo Rainer

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

Danke
Gruss Paul

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

Betreff
Datum
Anwender
Anzeige
warum bleibst du nicht im Thread? o.T.
03.09.2003 23:14:22
xXx
AW: Kleiner Fehler?
03.09.2003 23: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???
03.09.2003 23:18:45
xXx
AW: wer denn du???
03.09.2003 23:22:33
Paul
Hallo

Danke für die Hilfe
Gute NAcht

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige