Schleife und IF
11.08.2016 07:33:31
Daniel
Hab ein Anfängerproblem mit einer Schleife.
Was ich machen will:
in Tabelle1 Spalte H durchsuchen. Von Zeile 7 - 107
Wenn mind. ein Zeichen gefunden wird dann:
1. soll das Zeichen als Variable eingelesen werden.
2. soll eine Spalte auf dem Tabellenblatt newData(Codename) markiert werden, die die gleiche Nummer der Zeile in Tabelle1 hat z.B. Tabelle1.cells(17,8) soll markieren: newData.columns(17).
3. dann ein (bereits fertiges) Makro ausführen (Spalten einfügen und Text aus der markierten Spalte aufteilen)
4. in Spalte H weiter suchen
Fehler 1:
wsNewData.Columns(col).Select
funktioniert nicht. Warum? Mit der With Anweisung funktioniert es aber.
Fehler 2:
nach dem er den ersten Treffer gemacht hat, markiert er in jedem weiteren Durchlauf JEDE entsprechende Spalte, auch wenn gar kein Zeichen in Spalte H steht.
Wäre nett wenn jemand helfen könnte.
Viele Grüsse
Dim c As Integer
Dim wsNewData As Worksheet
Dim col As Integer
Dim Separator As String
ChangeColumns.Activate
Set wsNewData = newData
For c = 107 To 7 Step -1
If Cells(c, 8).Value "" Then
Separator = Cells(c, 8).Value
col = c - 6
wsNewData.Columns(col).Select
' With wsNewData
' .Activate
' .Columns(col).Select
' End With
Makro
End If
col = 0
Next c
End Sub