Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige