Hey,
und zwar sollen bei Ja nur die ersten 7 Zeilen in die anderen Tabelle kopiert werden. Aber in VB bin ich gaaaaanz schlecht, könnte mir da bitte mal jemand helfen?
Hier der Code (nur mit Ja-Option):
For lngRow = Sheets(„pipeline“).Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Row To 4 Step -1
If LCase(Sheets(„pipeline“).Cells(lngRow, 11)) = LCase(„ja“) Then
Sheets(„pipeline“).Rows(lngRow).Copy
Sheets(„auftragsbestand“).Cells(Sheets(„auftragsbestand“).Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets(„pipeline“).Rows(lngRow).Delete Shift:=xlUp
VB Wie werden nur 7 Zeilen in die andere Tabelle k
Hallo Niiine,
dein code kopiert Zeilen mit Step-4 von unten nach oben bis Höhe zeile 4 in ein anderes Blatt und löscht dabei die kopierten Zeilen im Ausgangsblatt.
Jetzt kann ich dieses:
und zwar sollen bei Ja nur die ersten 7 Zeilen in die anderen
Tabelle kopiert werden.
nicht richtig einordnen. Die ersten 7 Zeilen eines Blocks, also z.B. Zeile 4-10?
Oder auch mit Step 4?
versehentlich habe ich Zeilen geschrieben, obwohl ich zellen meinte.
Derzeit kopiert es die ersten 11 zellen in die andere Tabelle, aber es sollen nur die ersten 7 kopiert werden.
versehentlich habe ich Zeilen geschrieben, obwohl ich zellen
meinte.
Derzeit kopiert es die ersten 11 zellen in die andere Tabelle,
aber es sollen nur die ersten 7 kopiert werden.
Hallo Niine,
dein Code kopiert ganze zeilen, nicht nur 11 Zellen einer Zeile.
Soll dein bestehender Code, wenn „ja“ erfüllt ist, nur die ersten 7 Zellen einer Zeile kopieren?
jap er soll nur die ersten 7 kopieren, bisher hat es ja die
ganze zeile kopiert.
Hallo Niine,
probiers mal so:
Option Explicit
Sub tt()
Dim lngRow As Long
With Worksheets("pipeline")
For lngRow = .Cells(Rows.Count, 11).End(xlUp).Row To 4 Step -1
If LCase(.Cells(lngRow, 11)) = "ja" Then
.Range(.Cells(lngRow, 1), .Cells(lngRow, 7)).Copy \_
Destination:=Worksheets("auftragsbestand").Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)
.Rows(lngRow).Delete
End If
Next lngRow
End With
End Sub
