VB Wie werden nur 7 Zeilen in die andere Tabelle k

Computer: Software & Programmierung Visual Basic
#1

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

Vielen Dank für eure Hilfe.

Niine

#2

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?

Dazu noch nur dann wenn da „ja“ steht?

Gruß
Reinhard

#3

Hallo Reinhard,

vielen Dank für deine antwort.

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.

Vielen Dank,
Niine

#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.

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?

Gruß
Reinhard

#5

hey,

jap er soll nur die ersten 7 kopieren, bisher hat es ja die ganze zeile kopiert.

vielen dank :smile:

#6

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

Gruß
Reinhard

#7

Hey Reinhard,

funktioniert! vielen vielen Dank!

lg Niine