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

Frage Microsoft Microsoft Office

Mitglied: sunblocker

sunblocker (Level 1) - Jetzt verbinden

12.12.2006, aktualisiert 13.12.2006, 9302 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
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 20 StundenMicrosoft Office8 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 22 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 23 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner13 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...