|
hallo,
ich will eine tabelle spalten weise in TXT exportieren...
es soll immer die 2. spalte exportiert werden plus die je nach dem welcher Radiobutton angeklickt ist...
das ist mein Code:
|
Code: |
Sub CommandButton1_Click()
Dim Datei As Variant
Dim Zeile As Double
Dim vari As String
Dim txt As String
Dim spalte As Double
Dim zeigen
Datei = Application.GetSaveAsFilename("transl_report.txt", "txt-Datei,*.txt", , "Speichern des Reports")
If Datei = False Then Exit Sub
Open Datei For Output As #1
Print #1, "' *****************************************************************************" 'header
Print #1, "' "
Print #1, "' *****************************************************************************"
Print #1, "' Last Change: "; (DateAdd("m", 1, Date))
'Print #1, "' Last Change: "; Now()
Print #1, "' Created by macro version 1.0, DJ "
Print #1, "' *****************************************************************************"
For Zeile = 4 To 47
vari = Cells(Zeile, 2) & " = "
If Tabelle1.OptionButton1 = True Then spalte = 3
If Tabelle1.OptionButton2 = True Then spalte = 4
If Tabelle1.OptionButton3 = True Then spalte = 5
If Tabelle1.OptionButton6 = True Then spalte = 6
If Cells(Zeile, spalte) = "" Then
MsgBox "Die Spalte: " & spalte & " in Zeile: " & Zeile & " enthält keinen Wert" & vbCrLf _
& "Export nicht komplett!!!", vbCritical, "+++ Warning +++ Warning +++ Warning +++" 'gibt Fehlermeldung aus wenn zelle leer
End If
txt = " " & vari & """" & Cells(Zeile, spalte) & """" 'schreibanordnung
Print #1, txt 'schreibt txt
Next
Print #1, "End Sub"
Close #1
zeigen = Shell("C:\Program Files (x86)\Notepad++" & "\notepad++.exe " & Datei, 1) 'öffnet geschriebenes file mit notepad
Exit Sub
End Sub |
der klappt auch wunderbar...jetzt will ich aber, das erst der Header kommt, dann immer die 2 spalte und dann beginnend mit spalte 3 exportiert wird...
dann soll wieder der header kommen und wieder spalte 2 und dann spalte 3...usw
den export möchte ich über kontrollkästchen regeln...sind diese aktiv soll immer ein der header, die 2. spalte und die entspechende spalte exportiert werden...
ist ein kästchen nicht aktiviert soll er in die nächste spalte springen und da weiter exportieren...
ich hoffe ihr könnt mir helfen
|