Können Daten in einem versteckten Datenblatt markiert werden?
(ZelleA1 und A2)
Mit Select erfolgt logischerweise eine Fehlermeldung.
Danke
Josef
Können Daten in einem versteckten Datenblatt markiert werden?
(ZelleA1 und A2)
Mit Select erfolgt logischerweise eine Fehlermeldung.
Danke
Josef
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
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
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