Sprung nach If Then , ist Next i nicht möglich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias
Danke für Deinen Tipp. Ich habe aber noch weitere Sprünge zu bewältigen, bei denen ich noch keîne Lösung habe.
Ich suche eine generelle Lösung für solche Anwendungen ohne dabei die Zeilennummer als Sprungadresse benutzen zu müssen. Noch offene Sprungadressen:
If Cells(oRow, nCol).Value = "" Then Next n
If Cells(iRow - 1, jCol).Value &gt "" Then Next j
Ich setze nun den ganzen Code ein:
&ltpre&gt
Sub Only()
'*********************************************************************
'
'
'*********************************************************************
Dim d As Integer, i As Integer, j As Integer, m As Integer, n As Integer, o As Integer
Dim iRow As Integer, jCol As Integer, oRow As Integer, nCol As Integer
Dim b As String, c As String
oRow = 30
For m = 3 To 17 Step 7 ' mit m und n werden die einzelnen Blöcke angesprochen
oRow = oRow + 1
For n = 1 To 7 Step 3
If Cells(oRow, nCol).Value = "" Then Next n
Else:
b = Range.Cells(oRow, nCol).Value ' Addition aller Einzelfelder
For i = m + 0 To m + 4 Step 2 ' Mit i + j werden die einzelnen Felder
iRow = i ' angewählt
For j = n + 0 To n + 2 Step 1
jCol = j
If Cells(iRow - 1, jCol).Value &gt "" Then Next j
Else:
c = Range.Cells(iRow, jCol).Value 'c = Möglichkeiten im Einzelfeld
For cCounter = 1 To Len(c)
a = Mid(c, cCounter, 1)
d = 0
For bCounter = 1 To Len(b) 'b = Möglichkeiten aller Felder
If a = Mid(b, bCounter, 1) Then d = d + 1
End If
Next bCounter
If d = 1 Then Cells(iRow - 1, jCol).Value = a
End If
Next cCounter
End If
Next j
Next i
Next n
Next m
End Sub&lt/pre&gt
Habt Ihr, hast Du Matthias nun hier einen Rat?
Gruss urs

Sub Only() Dim d As Integer, i As Integer, j As Integer, m As Integer, n As Integer, o As Integer Dim iRow As Integer, jCol As Integer, oRow As Integer, nCol As Integer Dim b As String, c As String oRow = 30 For m = 3 To 17 Step 7 ' mit m und n werden die einzelnen Blöcke angesprochen oRow = oRow + 1 For n = 1 To 7 Step 3 nCol = n If Cells(oRow, nCol).Value <> "" Then b = Cells(oRow, nCol).Value ' b= Addition aller Einzelfelder For i = m + 0 To m + 4 Step 2 ' Mit i + j werden die einzelnen Felder iRow = i ' angewählt For j = n + 0 To n + 2 Step 1 jCol = j If Cells(iRow - 1, jCol).Value = "" Then c = Cells(iRow, jCol).Value ' c = Möglichkeiten im Einzelfeld For cCounter = 1 To Len(c) a = Mid(c, cCounter, 1) d = 0 For bCounter = 1 To Len(b) If a = Mid(b, bCounter, 1) Then d = d + 1 Next bCounter If d = 1 Then Cells(iRow - 1, jCol).Value = a Next cCounter End If Next j Next i End If Next n Next m End Sub

Beliebteste Forumthreads (12 Monate)

Sprung nach If Then , ist Next i nicht möglich?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread