ich habe zwei Anliegen an euch:
Mit dem VBA-Code
Sub Copy_x()
Dim i As Long, suchCol As Long
Dim strSearch As Long
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("Tabelle1")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle2")
suchCol = 5
strSearch = 500
With srcWks
For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Value > strSearch Then
Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next i
End With
End Sub
kann ich mir alle > 500 Umsatz Modelle in ein anders Tabellenblatt kopieren.Beispielmappe : https://www.herber.de/bbs/user/110980.xlsm
a) ich möchte aus Tabelle 1 nur die Spalten Land(A) - Modell(B) und Umsatz(E) in die Tabelle 2 übertragen
b) eine Summe der Umsätze bilden (oben - siehe Beispieldatei)
Vielen Dank für eure Mühe