Schleifen problem
27.02.2014 15:22:10
mehmet
ich komme mit meiner Schleife nicht ganz klar.
1. Schleife:
Es soll checken (von oben nach unten) bis in Spalte E, F, G, H, I was steht.
Wenn ja, dann soll in Spalte B gucken ob " Zusatz" und darunter " Leistung" stehen.
Wenn ja, dann sollen die darunter liegende Zeile kopiert und im Sheet Inf_B Spalte S-Z eingefügt werden.
Falls eine folge Zeile was steht, dann sollen diese auch kopiert und eingefügt werden (Spalte AB-AI). usw.
Durchlaufe diese Schleife bis wieder in Spalte E, F, G, H, I was steht.
2. Schleife:
Es soll checken (von oben nach unten) bis in Spalte E, F, G, H, I was steht.
Wenn ja, dann soll in Spalte B gucken " Keine weitere Angaben." stehen.
Wenn ja, dann soll die Information (keine Angaben) im Sheet Inf_B Spalte S-Z eingefügt werden. usw.
Durchlaufe diese Schleife bis wieder in Spalte E, F, G, H, I was steht.
Die Datei https://www.herber.de/bbs/user/89461.xls wurde aus Datenschutzgründen gelöscht
Sub GuckObZeilenVorhanden0()
Dim Text_1_vorhanden, Text_2_vorhanden, Text_3_vorhanden As String
Dim Zeile1, Zeile2 As Integer
Text_1_vorhanden = " Keine weitere Angaben."
Text_2_vorhanden = " Zusatz"
Text_3_vorhanden = " Leistung"
With Sheets("Inf_A")
For Zeile1 = 1 To 3000
If .Cells(Zeile1, 5).Value "" And _
.Cells(Zeile1, 6).Value "" And _
.Cells(Zeile1, 7).Value "" And _
.Cells(Zeile1, 8).Value "" And _
.Cells(Zeile1, 9).Value "" Then
.Cells(Zeile1 + 1, 2).Select
For Zeile2 = 1 To 10
If ActiveCell.Value = Text_2_vorhanden And ActiveCell.Offset(1, 0).Value = _
Text_3_vorhanden Then
MsgBox ActiveCell.Value
.Range(.Cells(Zeile1 + 2, 5), .Cells(Zeile1 + 2, 5)).Copy 'kopiere Inf_A
Zeile1 = Zeile1 + 1
With Sheets("Inf_B").Cells(Zeile1 + 10, 19) 'einfuegen in Inf_B ab S11
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
End If
Next Zeile2
End If
Next Zeile1
End With
End Sub
Vielen Dank im VorausGruß
mehmet