Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein Programm in VBA geschrieben, das eine Exceltabelle in eine Textdatei schreibt und dies unter Format-Vorgaben. Das Problem ist, das ich im Quelltext jede Zeile und jede Zelle angeben muss, die bearbeiten werden soll. Das muss doch einfacher gehen. Hier mal ein Code-Ausschnitt : [code] For nRow = 4 To 4 For nCol = 3 To 3 LENTemp = Range("C4").Text Delimiter = 8 - Len(LENTemp) For i = 1 To Delimiter LENLenght = LENLenght + " " Next i strFileText = strFileText & avarWksData(nRow, nCol) & LENLenght ´Var´s leeren! LENTemp = "" Delimiter = "" LENLenght = "" Next strFileText = strFileText & avarWksData(nRow, nColsCnt) Next[/code] Der Delimiter dient der Formatierung, hat allerdings keinen Konstanten Wert! Ich brauche eine Schleife die : Eine Zeile ausliest, !Zelle für Zelle!, wenn ein leeres Feld gefunden wird, soll er die nächste Zeile auf die gleiche Weise abarbeiten. Würde mich über eine Antwort freuen MfG LordHexa

Hallo.

kannst Du mit ActiveCell.Offset(Zeile, Spalte) was anfangen?

Ein Anwendungsbeispiel ist hier:
https://supportnet.de/threads/998072

nämlich Dubletten entfernen.

If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Offset(1, 0).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If 

zeilenweise arbeiten also mit ActiveCell.Offset(0, 1)

MfG
schnallgonz

• wieder Makro Code
• Excel Wenn Dann
• excel wenn bezug auf 2 zellen
• Merkwürdige Datumsanzeige
• Berechnungsergebnis in andere Zelle