Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenbereich speichern

Forumthread: Tabellenbereich speichern

Tabellenbereich speichern
17.03.2003 16:05:35
Heinrich M.
Hallo Leute,

ich arbeite bereits seit einigen Jahren mit Excel, habe aber erst kürzlich angefangen, mit Makros zu hantieren.

Mein Problem ist, dass ich den Tabellenbereich B12 bis B31 mit dem Namen in K7 als .ini speichern möchte.
Nach vielen Stunden erfolgloser Versuche musste ich dann doch einsehen, dass meine Basic-Kenntnisse nicht gerade weit über die C64-Zeit hinausgehen :-)

Kann mir da jemand weiterhelfen?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenbereich speichern
17.03.2003 16:21:50
Bernd Held

Hallo Heinrich,

mit folgendem Makro könntest Du Deinen Ini-Datei erstellen.

Sub INIdateiErstellen()
Open "D:\Eigene Dateien\" & Range("K7").Value & ".ini" For Output As #1
Sheets("Tabelle1").Activate
Range("B12").Select
For i = 1 To 19
Print #1, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next
Close #1
Application.ScreenUpdating = True
MsgBox "Textdatei erstellt!"
End Sub

Sub INIdateiErstellen()
Open "c:\Eigene Dateien\" & Range("K7").Value & _
".ini" For Output As #1
Sheets("Tabelle1").Activate
Range("B12").Select
For i = 1 To 19
Print #1, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next
Close #1
Application.ScreenUpdating = True
MsgBox "Textdatei erstellt!"
End Sub


Anzeige
Re: Tabellenbereich speichern
17.03.2003 16:22:21
Bernd Held

Hallo Heinrich,

mit folgendem Makro könntest Du Deinen Ini-Datei erstellen.

Sub INIdateiErstellen()
Open "c:\Eigene Dateien\" & Range("K7").Value & _
".ini" For Output As #1
Sheets("Tabelle1").Activate
Range("B12").Select
For i = 1 To 19
Print #1, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next
Close #1
Application.ScreenUpdating = True
MsgBox "Textdatei erstellt!"
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de


Anzeige
Re: Tabellenbereich speichern
17.03.2003 16:28:55
Heinrich M.

Hallo Bernd,

Vielen vielen Dank :-)) Ich wär' echt noch verzweifelt...

Gruss,

Heinrich

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige