Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel VBA pfad auswählen und verwenden

Frage Entwicklung VB for Applications

Mitglied: Broken

Broken (Level 1) - Jetzt verbinden

28.01.2009, aktualisiert 08:43 Uhr, 36818 Aufrufe, 6 Kommentare

VBA Befehl zum öffnen von RTF dateien

Hallo liebe Gemeinde

Ich hab einen Frage zu VBA
ich bräuchte ein Befehl,
welches mir ein Fenster öffnet,
wo ich eine Datei auswählen kann,
wie wenn man in Excel hingeht und auf Datei; Öffnen klickt
und dieser Pfad müsste dann noch in einer ariable abgespeichert werden,
die Später aufgerufen werden kann.

Ich weiß es ist zu viel verlangt

Mit freundlichen Grüßen
Broken
Mitglied: Logan000
28.01.2009 um 10:04 Uhr
Moin Moin

Das läuft in etwa so:
01.
Sub Öffnen() 
02.
    ChDir "\" 
03.
    ChDrive "c:\" 
04.
    Dateiname = Application.GetOpenFilename _ 
05.
       ("Micrsoft Excel-Dateien (*.xls),*.xls") 
06.
    If Dateiname = False Then Exit Sub 
07.
    MsgBox "Dateiname:" & vbNewLine & Dateiname 
08.
End Sub
Gruß L.
Bitte warten ..
Mitglied: Broken
28.01.2009 um 10:09 Uhr
Vielen Dank für die schnelle Antwort

ich hätte da noch eine Frage.
Wie kann ich zusätzlich die RTF Dateien anzeigen,
ich sehen nur XLS Dateien.

nochmals vielen Dank

Gruß Broken
Bitte warten ..
Mitglied: Broken
28.01.2009 um 10:37 Uhr
Noch etwas
Wie kann ich das so einfügen, das die variable richtig erkannt wird
zurzeit steht dort:

ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Waveform 3.rtf", Destination:=Range _
("A1"))

und ich hätte gerne das die variable Dateiname, wo der Pfad hinterlegt ist übernommen wird

"TEXT;Dateiname", Destination:=Range("A1"))

Vielen Dank im Voraus

Gru? Broken
Bitte warten ..
Mitglied: Logan000
28.01.2009 um 11:50 Uhr
Moin

Wie kann ich zusätzlich die RTF Dateien anzeigen, ....
Um andere Dateitypen zu sehen muß der Filter angepasst werden, etwa so
01.
... 
02.
Dateiname = Application.GetOpenFilename ("Micrsoft Excel-Dateien (*.xls),*.xls, _ 
03.
   Textdateien (*.txt), *.txt, _ 
04.
   Alle Dateien (*.*),*.*, _ 
05.
   RTF-Dateien(*.rtf). *.rtf) 
06.
...
und ich hätte gerne das die variable Dateiname, wo der Pfad hinterlegt ist übernommen wird
"TEXT;Dateiname", Destination:=Range("A1"))
Verstehe ich das richtig du möchtest den inhalt der Variable (also deinen ausgewählten Dateipfad) in eine Zelle schreiben?

Das solte etwa so gehen:
01.
... 
02.
    ActiveSheet.Range("A1").Select 
03.
    ActiveCell.FormulaR1C1 = Dateiname 
Wie kann ich das so einfügen, das die variable richtig erkannt wird zurzeit steht dort:
ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Waveform 3.rtf", Destination:=Range _
("A1"))
Das verstehe ich leider nicht. was meinst Du mit "das die variable richtig erkannt wird" ?

Gruß L.
Bitte warten ..
Mitglied: Broken
28.01.2009 um 12:28 Uhr
Hi & Danke

> Wie kann ich das so einfügen, das die variable richtig
erkannt wird zurzeit steht dort:
> ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Waveform
3.rtf", Destination:=Range _
> ("A1"))
Das verstehe ich leider nicht. was meinst Du mit "das die
variable richtig erkannt wird" ?

Gruß L.

Was ich damit meinte war, dass ich die obengenante funktion benutze um die "Waveform 3.rtf" in die Excel tabelle zu importieren, um anschliesend damit auswertungen auszuführen.
meine frage war jetzt wie ich es hinbekomme, dass ich anstatt der "Waveform 3.rtf" eine xbelibige .rtf darstelle.
mit dem Pfad will ich eine andere RTF öffnen und dieser Pfad soll in dem oben genannten code eingetragen werden.

ich weis nicht wie ich zwichen 2 " " eine Variable so setze das ihr wert übernommen wird


Vielen Dank für deine Hilfe

Gruß Broken
Bitte warten ..
Mitglied: Broken
28.01.2009 um 12:52 Uhr
HI
hab das Problem gelößt

ich hab den Text einfach in eine Zweite Variabnle geschrieben und den Pfad dazuaddiert.

Vielen Dank Logan000 für deine Hilfe.

Gruß Broken
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel VBA mehrere Zellen auswählen
gelöst Frage von MWTUJEMicrosoft Office3 Kommentare

Hey Leute, ich habe hier ein Problem bei der VBA-Programmierung. Ich habe ja die Möglichkeit mit Range mehrere Bereiche ...

VB for Applications
Excel VBA - Auswahl aus Listbox bearbeiten
Frage von MasterSchlumpfVB for Applications1 Kommentar

Hallo Profis, ich benötige Eure Hilfe in Excel VBA. Ich lasse den Inhalt einer Tabelle in einer Listbox anzeigen. ...

Basic
Excel VBA - speichern, senden, Pfad angeben
gelöst Frage von next01deBasic3 Kommentare

Hallo Zusammen, ich würde gerne eine Excel VBA schreiben, welche folgendes durchführt: 1. Die Arbeitsmappe soll ganz normal gespeichert ...

Microsoft Office
EXCEL - automatische Kalendertage nach Auswahl
gelöst Frage von TermimanMicrosoft Office4 Kommentare

Hallo liebe Excel-Freunde, ich habe eine kleine Aufgabe vor mir. Ich würde gerne eine automatisch die Wochentage nach Auswahl ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 5 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 16 StundenWindows 102 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 18 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner4 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen13 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...