CODE Zusammenfassen oder umschreiben
18.08.2004 14:04:46
Lorenz
Ist es möglich den Abschnitt "Then rng.Offset(0, 6).Value " - die "Section2"
aus untenstehenden CODE zuzuordnen? (sodass "Cells(a, 9).ClearContents" nicht notwendig ist)
Sub Eintragen()
Dim rng As Range, i As Integer, a As Integer, k As Integer
Set rng = Range("C1")
For i = 1 To 25
If IsEmpty(rng) Then
End If
Set rng = rng.Offset(0, 0)
If rng = "x" Then rng.Offset(0, 6).Value = rng.Offset(0, -2)
Next
'Section2
k = 1
For a = 1 To 25
If Not IsEmpty(Cells(a, 9)) Then
Cells(k, 10).Value = Cells(a, 9).Value
'Cells(a, 9).ClearContents
k = k + 1
Else
End If
Next
End Sub
PS: in Spalte "C" wird ein x eingetragen; In der Zeile wo "x" steht soll der Eintrag aus Spalte "A" in Spalte "J" (ohne Leerzellen)eingetragen werden.
Gruss Lorenz