Office: Const Variable variabel machen

Helfe beim Thema Const Variable variabel machen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ich habe folgenden Code aus dem Internet genommen: Code: Sub Author_SUB() Const strFolder As String = "P:" ' Anpassen Verzeichnis Dim strFolder As... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Dhub, 8. Januar 2020.

Seite 1 von 2

DHUB

Dhub

Const Variable variabel machen

Ich habe folgenden Code aus dem Internet genommen:

Code:

Sub Author_SUB()

Const strFolder As String = "P:" ' Anpassen Verzeichnis
Dim strFolder As String
Const strFile As String = "*.*" ' Ev. inc. Dateityp
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim lRow As Long

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)

For Each objFile In objFolder.items
lRow = lRow + 1
Sheets("Tabelle1").Cells(lRow, 1) = objFile.Name
For ABC = 1 To 100
Sheets("Tabelle1").Cells(lRow, ABC + 1) = objFolder.GetDetailsOf(objFile, ABC)
Next ABC
Next
MsgBox "Finished"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun wollte ich die const weg lassen und mittels inputox der eintrag erfolgen lassen.
Dies führt zu einem Laufzeitfehler 91 - Objektvariable oder with-Blockvariante nicht festgelegt.
An der Passage >>> Set objFolder = objShell.Namespace(strFolder)

:)

Dhub, 8. Januar 2020

#1
FLOTTER FEGER

Flotter Feger

... dem geht's nicht schnell genug ...
Office Forum • Thema anzeigen - VBA

Flotter Feger, 9. Januar 2020

#2
MASE

Mase

von Flotter Feger

... dem geht's nicht schnell genug ...
Office Forum • Thema anzeigen - VBA
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@Sabina:
Bist halt auch nicht mehr .. äh, sorry *wink.gif* *tongue.gif*

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Mase, 9. Januar 2020

#3
DHUB

Dhub

Const Variable variabel machen

Ja, stimmt. Ich hatte vor einiger Zeit schon mal in beiden Foren eine Anfrage erstellt, aber nur hier eine Anfrage erhalten.

Leider hatte ich erst etwas zu spät bemerkt, dass ich im (vermeintlich?) falschen Forum gepostet habe.

Könnt ihr ansonsten was zur Lösung meines Problems beitragen?

Liebe Grüße
Dhub

Dhub, 10. Januar 2020

#4
MASE

Mase

Hi,

strFolder ist zweimal deklariert.
ABC ist gar nicht deklariert.

Verwende Option Explicit, es wird Dich ans Ziel bringen.

Mase, 10. Januar 2020

#5
DHUB

Dhub

Code:

' Const strFolder As String = "P:...
Dim strFolder As String
Const strFile As String = "*.*" ' Ev. inc. Dateityp
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim lRow As Long
Dim ABC As Long

strFolder = "P:.."

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)
For Each objFile In objFolder.items
lRow = lRow + 1
Sheets("Tabelle1").Cells(lRow, 1) = objFile.Name
For ABC = 1 To 100
Sheets("Tabelle1").Cells(lRow, ABC + 1) = objFolder.GetDetailsOf(objFile, ABC)
Next ABC
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider nicht - ist auch nicht doppelt in meinem Makro, lag daran, dass ich einfach beim kopieren das " ' " vergessen hatte *Smilie

Aber auch mit Dimensionierungen: Der selbe Fehler tritt weiterhin auf... *frown.gif*

Dhub, 10. Januar 2020

#6
MASE

Mase

Dann überprüfe mal Dein Verzeichnis bzw dessen Wertzuweisung.

i. Geh auf c:\, leg dort einen Ordner Test an
ii. ein paar Dateien da rein
iii. versuche folgenden Code

Code:

Sub Author_SUB()
Const strFolder As String = "C:\Test\" ' Anpassen Verzeichnis
Const strFile As String = "*.*" ' Ev. inc. Dateityp
Dim ABC As Long
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim lRow As Long
'
'
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)

For Each objFile In objFolder.items
lRow = lRow + 1
Sheets("Tabelle1").Cells(lRow, 1) = objFile.Name

For ABC = 1 To 100
Sheets("Tabelle1").Cells(lRow, ABC + 1) = objFolder.GetDetailsOf(objFile, ABC)
Next ABC

Next
MsgBox "Finished"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 10. Januar 2020

#7
DHUB

Dhub

Const Variable variabel machen

Das ist ja mein Ausgangscode

Ich habe das const strFolder zu dim strFolder geändert

dann habe ich strFolder mittels Inputbox befüllt. Und das knallt dann...

das hier ist der crashedne Code

Code:

Sub Author()
'http://www.*************************617215_0_0_asc.php
' Const strFolder As String = "C:Users" ' Anpassen Verzeichnis
Dim strFolder As String
Const strFile As String = "*.*" ' Ev. inc. Dateityp
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim lRow As Long
Dim ABC As Long

strFolder = "C:Users"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)
For Each objFile In objFolder.items
lRow = lRow + 1
Sheets("Tabelle1").Cells(lRow, 1) = objFile.Name
For ABC = 1 To 100
Sheets("Tabelle1").Cells(lRow, ABC + 1) = objFolder.GetDetailsOf(objFile, ABC)
Next ABC
Next
MsgBox "Finished"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PS: Wieso taucht in Deinem Code der Backslash auf im Forum und in meinem nicht?

Dhub, 10. Januar 2020

#8
MASE

Mase

PS: Wieso taucht in Deinem Code der Backslash auf im Forum und in meinem nicht?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zweimal schreiben, um einmal anzuzeigen.

dann habe ich strFolder mittels Inputbox befüllt. Und das knallt dann...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Stellen wir erstmal hinten an, wenns recht ist.

Das ist ja mein Ausgangscode
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, ist er nicht.
Hast Du den geänderten Code aus #7 kopiert, die Punkte i., ii., iii. angewandt und den Code ausgeführt?

Mase, 10. Januar 2020

#9
DHUB

Dhub

Ja habe ich

und das funktionierte auch, war aber nicht was ich wollte. Ich wollte ja dass StrFolder variabel ist.

Mittlerweile geht es und wenn ich Dir schreibe was ich gemacht habe ...naja egal

Unbeteiligter Kollege war da und sagte, schreib mal was ganz anderes rein. Das gab's ja schon*rolleyes.gif* ...das gab's ja schon? ....

Naja jedenfalls jetzt läuft's und ich verstehe noch weniger weshalb....
Nach mieinem Dafürhalten, hätte der Variablenname nichts ausmachen dürfen...
...bin verwirrt

Kannst die Codes gerne kopieren und es selbst ausprobieren (Mein System Office 365 Win8)

Code:

Sub Author()
'http://www.*************************617215_0_0_asc.php
'Const strFolder As String = "C:"
Dim strFolder As String
Const strFile As String = "*.*" ' Ev. inc. Dateityp
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim lRow As Long
Dim ABC As Long

WUNSCHKONZERT = InputBox("Bitte Pfad kopieren und einfügen - KEIN am ENDE")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(WUNSCHKONZERT)

For Each objFile In objFolder.items
lRow = lRow + 1
Sheets("Tabelle1").Cells(lRow, 1) = objFile.Name
For ABC = 1 To 100
Sheets("Tabelle1").Cells(lRow, ABC + 1) = objFolder.GetDetailsOf(objFile, ABC)
Next ABC
Next
MsgBox "Finished"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dhub, 10. Januar 2020

#10
FLOTTER FEGER

Flotter Feger

... eventuell sollte ich das gar nicht fragen ... *biggrin.gif*

Warum eine InputBox ??? Es gibt doch FileDialog(msoFileDialogFolderPicker) ... *eek.gif*

Flotter Feger, 10. Januar 2020

#11
DHUB

Dhub

FileDialog(msoFileDialogFolderPicker) kenne ich nicht - daher die Inputbox.

Ist halt das Problem, wenn man sich den Krams selbst beibringt. Da fehlen halt hier und da einige Dinge *Smilie

Dhub, 10. Januar 2020

#12
DHUB

Dhub

Const Variable variabel machen

Geht zwar jetzt Off Topic, aber Thema is ja eeh erledigt

Meins ist zum kurz mal rein tippen schneller, aber dank CopyPaste zählt das ja nicht.

Sehr schicke Variante - direkt übernommen. Danke

Dhub, 10. Januar 2020

#13
MASE

Mase

Mir fehlen die Worte.
Ab und an sollte man sich auf sein Bauchgefühl verlassen...

Mase, 10. Januar 2020

#14
FLOTTER FEGER

Flotter Feger

Hallo Marco,

... und die Finger davon lassen ? ... ja ... so ist das manchmal ... die weibliche Intuition hat mal wieder zugeschlagen. *biggrin.gif*

Sabina

Flotter Feger, 10. Januar 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Const Variable variabel machen

Die Seite wird geladen...

Const Variable variabel machen - Similar Threads - Const Variable variabel
Combobox einbinden
in Microsoft Excel Hilfe
Combobox einbinden: Hallo, ich bastele an einer Funktion, bei der ich an einer Stelle im Programm eine Combobox aufrufen möchte, die dann mit bestimmten Werten aus einer Tabelle gefüllt ist und dann den gewählten...
VBA:Laufzeitfehler beim Einlesen in Variable
in Microsoft Excel Hilfe
VBA:Laufzeitfehler beim Einlesen in Variable: Hallo Excel Freaks, ich habe eine Frage, ein Problem wo ich nicht mehr weiter weis.... In eine Exceldatei kopiere ich mir über Makro auf ein Tabellenblatt von anderen Exceldateien das...
Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte
in Microsoft Excel Hilfe
Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte: Hallo zusammen, wer letzteren Thread kennt, hier eine Neuauflage. Problem: Aus Array-Berechnungen (Variablen von Let) ein weiteres Array zu erzeugen, welches für alle eindeutigen Werte aus G die...
Variable Anzahl immer 9er Kombination StellenBerechnung
in Microsoft Excel Hilfe
Variable Anzahl immer 9er Kombination StellenBerechnung: Hallo schönen Guten Abend mit Bauchweh, das ich bereits habe bei meiner Nicht weiter kommenden Formel. Folgendes Es lässt sich Schwer beschreiben doch ich versuche es Ich habe in J3 einen Wert...
Makro für variable Anzahl von Datensätzen
in Microsoft Excel Hilfe
Makro für variable Anzahl von Datensätzen: Hallo zusammen, ich habe wieder einmal ein kleines Excel-Problem, bei dem Ihr mir sicherlich helfen könnt. Ich habe eine Excel-Liste, das ist ein Export aus einem anderen Programm (siehe...
Variable Länge
in Microsoft Excel Hilfe
Variable Länge: Hallo zusammen, ich habe mal eine Frage. In einer Tabelle sind Spalten und Zeilen angegeben. Die Zeilen werden beispielsweise mit A1:H5 angegeben. Nun werden zwei Spalten mit Werten hinzugefügt....
const mit meheren Werten?
in Microsoft Excel Hilfe
const mit meheren Werten?: Hallo, ich hab mal wieder ein kleines Anfängerproblem. Makrobeschreibung: Aufgebaut ist mein Makro so, dass ich ein Modul mit dem Namen "var" mit Variablen habe und ein Modul mit dem Namen...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden