Zahlen exportieren geschlossen

[fexs]

Hallo,
ich möchte die Ergebnisse von Rechnungen, die ich in einer Excel-Tabelle errechnet habe, durch ein Makro in eine andere Excel-Tabelle oder in eine
.txt-Datei exportieren.

also praktisch: ich lasse mir die Ergebnisse meiner Rechnung zum Beispiel in Zelle
C4-C9 ausgeben, durch das Makro (oder durch was auch immer) sollen die Ergebnisse der Zellen (also die errechneten Zahlen) kopiert un in eine andere Datei gespeichert werden.

Diese Datei soll ist für ein anderes Programm gedacht.

So wie ich es jetz versucht habe steht dann nach dem drücken des Knopfes in der Zelle der anderen Datei nur "#Bezug" weil der bezug niht gefunden wird.
den Bezug brauch ich ja nicht ich will nur die puren Zahlen die errechnet werden kopieren.

vielen Dank schonmal für die Hilfe
fexs

 

[totsch]

Hallo fexs,

falls dir nicht noch jemand eine Makro-Lösung anbietet (kenne mich mit Makros nicht so aus), dann könntest du es wie folgt realisieren (Excel 2003):

C4 bis C9 markieren >> kopieren >> neue/andere Excel-Tabelle/-Datei öffnen >> Shift-Taste gedrückt halten >> Bearbeiten >> und jetzt entweder "Bild einfügen" oder "Verknüpftest Bild einfügen".
- "Bild einfügen" >> Werte sind nicht dynamisch
- "Verknüpftest Bild einfügen" >> Werte sind dynamisch, d.h. sie werden bei Änderungen des Ausgangsbereiches in der Ausgangstabelle übernommen/neu berechnet.
Diese dynamische Bildverknüpfung kannst du auch mit dem Kamerasymbol (= Schnappschussfunktion zum Erstellen von verknüpften Grafiken) erzeugen ohne Bearbeiten >> "Verknüpftest Bild einfügen".

Brauchst du keine dynamische Verknüpfung, kannst du die eingefügte (nicht verknüpfte) Grafik auch in ein Bildbearbeitungsprogramm einfügen und als jpg abspeichern.

Gruss Totsch

 

[Tattooed1980]

Hy fexs

Wenn du das ganze als Makro lösen willst:

Sub TextExport()
' Zelleninhalte als Text-Datei eportieren
Dim Dateiname As String

Dateiname = "C:\Testdatei.txt" ' Dateiname nach Wunsch

Open Dateiname For Output As #1
For intRow = 4 To 9 ' Die Zeilennummern (C4-C9)
Print #1, Cells(intRow, 3).Value '3 ist die Spaltennummer( A=1, B=2, C=3,...)
Next intRow
Close
End Sub

So sieht dann das Ergebnis aus:

MfG Tattooed1980

 

[fexs]

danke euch beiden!
des erste hatte ich gewusst aber des 2. war genau das was ich gesucht hab
mfg

 

[yuhu]

Erledigt ?

Das signalisiert man durch das Umstellen des Präfix.

Gruß
yuhu

 

[ede.2]

Daten in eine neue Excel-Datei kopieren funktioniert so

Sub Makro1()
'
' Makro1 Makro
' Makro am 02.12.2009 von ede aufgezeichnet
'

'
Range("C4:C9").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[fexs]

danke auch an ede
thema erledigt