Hallo zusammen,
hab ein Problem, für dessen Lösung mir bisher noch nicht mal ein Idee gekommen ist:
Ich möchte Datensätze bzw. Spalten einiger zeilen
(Tabelle1) in/an Tabelle2 anfügen(nach der letzten Ueile) . Dabei möchte ich das nur mit denjenigen Datensätzen, die ein Bedingung erfüllen (Spalte F=„nicht erfasst“) oder ähnliches.
Hat jemand ne Idee, wie ich das hinkriege?
Merci…
Ich möchte Datensätze bzw. Spalten einiger zeilen
(Tabelle1) in/an Tabelle2 anfügen(nach der letzten Ueile) .
Dabei möchte ich das nur mit denjenigen Datensätzen, die ein
Bedingung erfüllen (Spalte F=„nicht erfasst“) oder ähnliches.
hallo Vf,
ungetestet:
Sub tt()
Dim Zei1 As Long, Zei2 As Long, wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Zei2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row
For Zei1 = 1 To wks1.Cells(Rows.Count, 1).End(xlUp).Row
If UCase(wks1.Cells(Zei1, 6).Value) = "NICHT ERFASST" Then
Zei2 = Zei2 + 1
wks1.Rows(Zei1).Copy Destination:=wks2.Cells(Zei2, 1)
End If
Next Zei1
End Sub
Gruß
Reinhard
Hallo Reinhard,
Merci für die Hilfe, leider funktioniert der Code
nicht…
hab zwar versucht den Code an die Details anzupassen…
…Ich möchte Datensätze bzw. Spalten einiger zeilen
(Hilfstableau) in/an Tabelle2 anfügen(nach der letzten Zeile) .
Dabei möchte ich das nur mit denjenigen Datensätzen, die eine
Bedingung erfüllen (Spalte D=„nicht erfasst“)…
Sub tt()
Dim Zei1 As Long, Zei2 As Long, wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets(„Hilfstableau“)
Set wks2 = Worksheets(„Tabelle2“)
Zei2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row
For Zei1 = 1 To wks1.Cells(Rows.Count, 1).End(xlUp).Row
If UCase(wks1.Cells(Zei1, 4).Value) = „NICHT ERFASST“ Then
Zei2 = Zei2 + 1
wks1.Rows(Zei1).Copy Destination:=wks2.Cells(Zei2, 1)
End If
Next Zei1
End Sub
Merci für die Hilfe, leider funktioniert der Code
nicht…
Hallo Vf,
der Code funktioniert (bei mir):
http://www.hostarea.de/server-10/Oktober-e8e816ebd1.xls
Gruß
Reinhard
Vielen vielen Dank,
wahrscheinlich hat es auch von Anfang an funktioniert,
aber ich hatte noch einen aktiven Autofilter und hab
das Ergebnis nicht gesehen!
Merci