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, 9327 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 ...

VB for Applications

Excel Makro - Zellen vergleichen und leere Zelle einfügen

Frage von winIT3264VB for Applications3 Kommentare

Hallo zusammen, mein VBA ist 13 Jahre her und ich wollte folgendes erreichen: Spalte B hat 15000 Werte fortlaufend ...

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 ...

Microsoft Office

Excel Makro

Frage von maloh1984Microsoft Office4 Kommentare

Hallo Habe ein Problem, ein Kunde der hat Excellisten mit Makro die lassen sich öffnen aber die Buttons reagieren ...

Neue Wissensbeiträge
Datenschutz

Die Datenkrake Google verlängert ihr Arme mal wieder ein wenig, automatische Anmeldung

Tipp von magicteddy vor 12 StundenDatenschutz

Benutzer mit einem Google Account und gespeicherten Zugangsdaten werden von chrome 69 automatisch bei Google angemeldet, natürlich alles zum ...

Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 1 TagVerschlüsselung & Zertifikate3 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 3 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 3 TagenHyper-V1 Kommentar

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Heiß diskutierte Inhalte
Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz22 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...

Hardware
Sophos SG135 - Routing
gelöst Frage von Xaero1982Hardware22 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

E-Mail
Welche ist die beste E-Mail Groupware für die Zukunft?
Frage von ITCrowdSupporterE-Mail18 Kommentare

Guten Tag allerseits :) Ich möchte mich mit einer Frage heute mal an die Schwarmintelligenz wenden. Aktuell befasse ich ...

Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke15 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...