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

Per Makro Datei öffnen und Inhalt in Excel einfügen

Mitglied: sunblocker

sunblocker (Level 1) - Jetzt verbinden

12.12.2006, aktualisiert 13.12.2006, 9321 Aufrufe, 2 Kommentare

Hallo

Ich möchte zum ersten mal ein Excel Makro erstellen...
Vor einigen Jahren hatte ich mal mit Visual Basic experimentiert, allerdings habe ich es schon ewigs nicht mehr gebraucht.

Ich möchte folgendes machen:
1. Datei öffnen (in der Datei steht nur eine Zahl)
2. Die Zahl um 1 erhöhen
3. Die aktuelle Zahl in die Excel Tabelle einfügen
4. Die Datei mit der neuen Zahl speichern

Eigentlich ist das eine ziemlich simple aufgabe... Aber ich bin schon am FileSystemObject gescheitert

Ich hoffe jemand kann mir auf die sprünge helfen.

Vielen Dank schon im voraus!

Sunblocker
Mitglied: bastla
13.12.2006 um 01:23 Uhr
Hallo sunblocker!

Das entsprechende Programm könnte so aussehen:
01.
Option Explicit 
02.
 
03.
Sub Erhoehen() 
04.
Const strDatei As String = "D:\Nummer.txt" 
05.
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
06.
 
07.
Dim fso As Object, objDatei As Object, lngNummer As Long 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
 
10.
If fso.FileExists(strDatei) Then 
11.
    Set objDatei = fso.OpenTextFile(strDatei, ForReading) 
12.
    lngNummer = objDatei.ReadLine 
13.
    objDatei.Close 
14.
    Set objDatei = Nothing 
15.
Else 
16.
    lngNummer = 0 
17.
End If 
18.
lngNummer = lngNummer + 1 
19.
 
20.
Set objDatei = fso.OpenTextFile(strDatei, ForWriting, True) 
21.
objDatei.WriteLine lngNummer 
22.
objDatei.Close 
23.
Set objDatei = Nothing 
24.
Set fso = Nothing 
25.
 
26.
Worksheets("Tabelle1").Range("D5").Value = lngNummer 
27.
End Sub
Falls eine Datei "D:\Nummer.txt" gefunden wird, wird aus dieser die Nummer gelesen, ansonsten als Startwert 0 angenommen. Nach dem Erhöhen der Nummer wird diese in die Datei "D:\Nummer.txt" geschrieben und in Zelle D5 der "Tabelle1" eingetragen.
Zu ergänzen wären noch die Überprüfung, ob es den angegebenen Pfad ("D:\") und die "Tabelle1" gibt.

HTH
bastla
Bitte warten ..
Mitglied: sunblocker
13.12.2006 um 20:02 Uhr
Hallo bastla

Vielen dank für deine superschnelle Antwort!
Es funktioniert genau so wie ich mir das vorgestellt habe!

Das mit dem Pfad werde ich noch einbauen..

Danke & Gruss

Sunblocker
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel Makro zum Einfügen von Daten aus anderen Excel Dateien

gelöst Frage von Tom77777Microsoft Office4 Kommentare

Hallo, ich bin neu hier im Forum und kenne mich leider nicht so gut mit Excel/VBA aus. Im Zuge ...

Microsoft Office

Makro: Bereich auf freie Zellen untersuchen und Inhalt einfügen

gelöst Frage von BerndVorwerkMicrosoft Office2 Kommentare

Hallo an alle, ich bräuchte einmal mehr Hilfe bei dem Erstellen eines Makros. Ich möchte gerne aus dem Tabellenblatt ...

Microsoft Office

Excel 2010 via Makro bedingten Seitenumbruch einfügen

Frage von arduinoMicrosoft Office1 Kommentar

Hallo Ich hab ein ExcelMakro, das ein formatiertes Textfile importiert Jetzt ist der Wunsch, dass nach den Eintritten von ...

Microsoft Office

Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten

gelöst Frage von packmann2016Microsoft Office5 Kommentare

ich möchte mit Hilfe einem Makro Zellen die einen bestimmten Inhalt ("G" und "A") haben ausblenden. Versuchte mit dem ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 2 TagenPeripheriegeräte2 Kommentare

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 3 TagenWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 3 TagenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 5 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Router & Routing
Routing Problem mit Kaskade FritzBox und pfsense zugeriff nur von der firewall auf die clients und 0.0.0.0
Frage von ukl1967Router & Routing23 Kommentare

Hallo, ich habe ein an sich triviales Problem elches ich allerdings nicht gelöst bekomme. NAS 10.5.10.53 Mein Netz baut ...

LAN, WAN, Wireless
HP Probook 470 G4 - abbrechende Downloads
Frage von joern1LAN, WAN, Wireless19 Kommentare

Folgendes Problem, für einen Tipp wäre ich dankbar: Bei WLAN-Verbindung zum Internet (nicht LAN) kommt es bei etwas größeren ...

Server-Hardware
Einsteigerfragen zu HP ProLiant DL380p Gen 8
gelöst Frage von brain2011Server-Hardware14 Kommentare

Hallo, ich habe mir einen HP ProLiant DL380p Gen 8 zugelegt, um mich grundlegend mit dieser Geräteklasse und der ...

Server-Hardware
DL380p Gen8 LEDs Laufwerksaktivität funktionieren nicht
Frage von Cisco7971Server-Hardware14 Kommentare

Hallo zusammen, ich habe hier ein seltsames Problem: Die LEDs an den Smart Carriern, die bei Laufwerksaktivität rotieren, tun ...