Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten in verstecktem Arbeitsblatt

Forumthread: Daten in verstecktem Arbeitsblatt

Daten in verstecktem Arbeitsblatt
25.11.2002 09:43:38
Josef
Hallo!

Können Daten in einem versteckten Datenblatt markiert werden?
(ZelleA1 und A2)

Mit Select erfolgt logischerweise eine Fehlermeldung.

Danke

Josef


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Daten in verstecktem Arbeitsblatt
25.11.2002 09:54:50
andreas e
hallo josef,
willst du die daten weiter verarbeiten ? Wenn ja , warumm dann select?
gruß
andreas e
Re: Daten in verstecktem Arbeitsblatt
25.11.2002 10:01:27
Josef
Hallo Andreas!

Die Daten welche im versteckten Blatt A1 und A2 vorhanden sind müßten markiert sein, weil sie in eine .cmd Datei eingetragen werden.
Es könnte aber auch sein,das ich wieder einmal alles falsch verstehe.

Danke für Dei0ne Antwort

Josef

Anzeige
Re: Daten in verstecktem Arbeitsblatt
25.11.2002 10:04:33
andreas e
hallo josef,
wie übergibst denn die daten ? es wäre doch auch denkbar die über ne variable aus zu lesen -
etwa so :
var1 = sheets(1).range("A1").value
oder ??
gruzß
andreas e
Re: Daten in verstecktem Arbeitsblatt
25.11.2002 10:04:44
Josef
Hallo Andreas!

Hier ist noch der Code:

Sub TextMac()
Dim rng As Range, Dateinummer%
Dim z%, s%, exportfile$, TMP$
exportfile = ("H:\Arbeit\delete.cmd")
Dateinummer = FreeFile
Range("C2").Value = InputBox("Eingabe", "Eingabeformular", "")
Range("A1:A2").Select
Set rng = Selection
Open exportfile For Output As #Dateinummer
For z = 1 To rng.Rows.Count
For s = 1 To rng.Columns.Count
TMP = TMP & CStr(rng.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
Shell "H:\Arbeit\delete.cmd", 1
End Sub


Josef

Anzeige
Re: Daten in verstecktem Arbeitsblatt
25.11.2002 10:14:06
Josef
Hallo Andreas!
Hier ist noch der Code:

Sub TextMac()
Dim rng As Range, Dateinummer%
Dim z%, s%, exportfile$, TMP$
exportfile = ("H:\Arbeit\delete.cmd")
Dateinummer = FreeFile
Range("C2").Value = InputBox("Eingabe", "Eingabeformular", "")
Range("A1:A2").Select
Set rng = Selection
Open exportfile For Output As #Dateinummer
For z = 1 To rng.Rows.Count
For s = 1 To rng.Columns.Count
TMP = TMP & CStr(rng.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
Shell "H:\Arbeit\delete.cmd", 1
End Sub


Josef

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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