Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler

Fehler
05.11.2012 11:38:59
Steve
Hallo Forum,
Ich komme nicht drauf warum ich hier einen Fehler bekomme:
Option Explicit
Public dateiname As String
Public ThisApp As New clsApp
Fehler: Benutzerdefinierter Typ nicht definiert.
Blau markiert ist : ThisApp As New clsApp
Ich arbeite mit Win7 64 bit, in XP ist es gelaufen ohne probleme.
Danke Steve

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler
05.11.2012 11:50:33
Matze,Matthias
Ersetze Public durch DIM

AW: Fehler
05.11.2012 12:26:41
Steve
Besten dank für die Antwort, leider geht es immer noch nicht.
Grüsse Steve

AW: Fehler
05.11.2012 12:55:06
Matze,Matthias
dann poste mal den kompletten Code

AW: Fehler
05.11.2012 13:01:29
Steve
Hallo Matthias, hier der Code.
Wie gesagt, ich arbeite in einem 64 bit System.
' **********************************************************************
' Modul: basMain Typ: Allgemeines Modul
Option Explicit
Public dateiname As String
Public ThisApp As New clsApp
'Einstellungen
Public RowSearch As Variant
Public theWorkbook As String
Public targetSheet As String
Public sourceSheet1 As String
Public sourceSheet2 As String
'Ende Einstellungen
Sub initialize()
Dim WB As Workbook
If WB Is Nothing Then Set WB = ThisWorkbook
theWorkbook = dateiname
targetSheet = WB.Worksheets(2).Name
sourceSheet1 = Worksheets(1).Name
sourceSheet2 = Worksheets(16).Name
Set ThisApp.xlApp = Application
End Sub
Public Function SheetExist(ByVal sheetName As String, Optional WB As Workbook) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If WB Is Nothing Then Set WB = ThisWorkbook
For Each wks In WB.Worksheets
If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function
MFG Steve

Anzeige
Weitere Hilfe nötig, ...
05.11.2012 13:09:46
Matze,Matthias
...bin auf dem weg zur Arbeit cu Leute

AW: Fehler
05.11.2012 14:09:27
Kawensmann
Hallo,
die markierte Zeile erwartet ein Klassenmodul mit dem Namen clsApp, welches in deinem VBA-Projekt offensichtlich nicht vorhanden ist. Und ohne dieses Klassenmodul ist der Code auch garantiert nicht unter XP gelaufen ...
Gruß
Kawensmann

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige