AW: exportieren importieren
18.03.2012 04:39:02
fcs
Hallo Seven,
zum Im-/Exportieren der Ergebnisse sind folgende Anpassungen nötig:
in Prozedur Daten_Importieren:
For Zeile = 6 To Zeile Step 2
For Spalte = 3 To 26 'Spalten C bis Z
If IsEmpty(.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte)) Then
wksImport.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte).ClearContents
Else
wksImport.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte).Value = _
.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte)
End If
Next Spalte
Next Zeile
in Prozedur Daten_Exportieren:
For Zeile = 6 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 2
For Spalte = 3 To 26 'Spalten C bis Z
If IsEmpty(.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte)) Then
wksImport.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte).ClearContents
Else
wksImport.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte).Value = _
.Cells(Zeile + IIf(Zeile = 6, 1, 0), Spalte)
End If
Next Spalte
Next Zeile
Gruß
Franz