Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad als Variable oder Konstante

Pfad als Variable oder Konstante
22.06.2013 07:27:47
Alexander
Hallo
Ich möchte einen Pfad den ich immer wieder benötige als variable oder Konstante setzten. wenn ich jedoch:
Const Pfad1 As String = "'C:\Users\###\#####\[#######"
setze und Pfad1 wieder einsetze zum beispiel in:
cmbtyp.RowSource = "& Pfad1 & .xlsm]KUKA'!B7:B200"
bekomme ich jedes mal beim Probelauf die meldung "Laufzeitfehler '380' Eigenschaft Rowsource konnte nicht Gesetzt werden. Ungültiger Eigenschaftswert "
Woran liegt das.
Danke schonmal im Voraus

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
in deinem Text ist...
22.06.2013 07:37:14
Oberschlumpf
Hi Alexander
...der Fehler hier:
cmbtyp.RowSource = "& Pfad1 & .xlsm]KUKA'!B7:B200" ergibt als Ergebnis nur:
"& Pfad1 & .xlsm]KUKA'!B7:B200"
denn du beginnst mit "
Alles was mit " beginnt, wird als String interpretiert
Und wieso ein & direkt hinter dem " steht, verstehe ich nicht - denn es würde zu einem Fehler führen.
Wenn du als Rückgabewert für cmbtyp.RowSource das hier haben willst:
"'C:\Users\###\#####\[#######.xlsm]KUKA'!B7:B200"
dann versuch es mal so:
Const Pfad1 As String = "'C:\Users\###\#####\[#######"
cmbtyp.RowSource = Pfad1 & ".xlsm]KUKA'!B7:B200"
Hilfts?
Ciao
Thorsten

Anzeige
AW: in deinem Text ist...
22.06.2013 10:31:54
Alexander
Hallo Thorsten
Es funktioniert leider immer noch nicht habe es genau so probiert wie du es geschrieben hast und es kommt immer noch der selbe Fehler.
danke nochmal

AW: in deinem Text ist...
22.06.2013 11:03:43
Alexander
Hallo Thorsten
Ich habe es hinbekommen nur funktioniert es nicht im sverweis. :-(
Range("d12").FormulaLocal = "=SVERWEIS(b12; Pfad1 & "KUKA'!B7:F200;2;FALSCH)"

AW: in deinem Text ist...
22.06.2013 11:05:41
Oberschlumpf
Hi
ok, dann vergiß meinen Beitrag mit Bsp-Datei ;-)
Ciao
Thorsten

AW: in deinem Text ist...
22.06.2013 11:12:25
Alexander
Hallo Thorsten
Muss ich in diesem Fall etwas besonderes beachten: 
 Select Case cmbrbt
Case "KUKA"
Range("d12").FormulaLocal = "=SVERWEIS(b12;Pfad1 & KUKA'!B7:F200;2;FALSCH)"
Range("d13").FormulaLocal = "=SVERWEIS(b12;Pfad1 & KUKA'!B7:F200;3;FALSCH)"
Range("d14").FormulaLocal = "=SVERWEIS(b12;Pfad1 & KUKA'!B7:F200;4;FALSCH)"
'Lastfall Angaben
Range("a5").Value = "Lastfall Vom Roboter:"
With Range("a5").Font
.Name = Arial
.Color = vbBlue
.Bold = False
.Underline = False
End With
Range("a5:b5").MergeCells = True
Range("d5").Value = "Lastfall Am Roboter:"
With Range("d5").Font
.Name = Arial
.Color = vbBlue
.Bold = False
.Underline = False
End With
Range("d5:e5").MergeCells = True
Case "ABB"
Range("d12").FormulaLocal = "=SVERWEIS(b12;'N:\[QuickCalk.xlsm]ABB'!B7:F200;2; _
FALSCH)"
Range("d13").FormulaLocal = "=SVERWEIS(b12;'N:\[QuickCalk.xlsm]ABB'!B7:F200;3; _
FALSCH)"
Range("d14").FormulaLocal = "=SVERWEIS(b12;'N:\[QuickCalk.xlsm]ABB'!B7:F200;4; _
FALSCH)"
Range("d5").Value = "Nur STOP 1 verfügbar"
With Range("a5").Font
.Name = Arial
.Color = vbRed
.Bold = True
.Underline = True
End With
Range("a5:c5").MergeCells = True
End Select
im unteren case bei ABB habe ich noch den Pfad Vom stick aber den jedesmal zu ändern ist aufwändig da der Pfad noch ca 50 mal benötigt wird .
wäre toll wen du was wüstest
Danke

Anzeige
AW: in deinem Text ist...
22.06.2013 11:55:31
Oberschlumpf
Hi Alex
ich kenn noch immer nich deine Datei. Daher kann ich auch nich wirklich helfen, glaub ich.
Einzige Idee:
Mach doch aus dem "festen" Pfadeintrag auch eine Variable.
Am Anfang des Codes:
Pfad2 = "'N:\[QuickCalk.xlsm]ABB'!B7:F200"
Und im Code dann
Range("d12").FormulaLocal = "=SVERWEIS(b12;" & Pfad2 & ";2; FALSCH)"
So müsstest du bei Pfadänderung nur noch
Pfad2 = "..anderer Pfad..."
ändern, und nicht mehr an 50 versch. Stellen im Code.
Hilfts?
Ciao
Thorsten

AW: in deinem Text ist...
22.06.2013 12:30:33
Oberschlumpf
Hi Alex
Ich übersah deinen Hinweis, dass es im SVERWEIS nicht klappt.
Versuch es mit allen Zeilen so:
Range("d12").FormulaLocal = "=SVERWEIS(b12;" & Pfad1 & "KUKA'!B7:F200;2;FALSCH)"
Hilfts?
Wenn nicht, DANN BSP-DATEI!
Ciao
Thorsten

Anzeige
AW: in deinem Text ist...
23.06.2013 15:23:00
Alexander
Hallo Thorsten
danke es hat funktioniert.
LG Alex

AW: in deinem Text ist...
22.06.2013 11:04:33
Oberschlumpf
Hi Alexander
Tja, dann wäre es schön, wenn du uns ne Bsp-Datei zeigst.
Ciao
Thorsten

304 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1