|
Hallo Trinchen,
Habe in der Zwischenzeit bereits etwas Unterstützung erhalten.
Hier der aktuelle Code für mein Problem.
Sub Neue_Tiere_uebernehmen()
' office-loesung 721414
' CaBe
' v1.0 01.08.2016
Dim freieZeileBeef As Long, HZeile As Long
Dim BeefWS As Worksheet, HelpWS As Worksheet
Set BeefWS = Sheets("Beef")
Set HelpWS = Sheets("Hilfstabelle 1")
freieZeileBeef = BeefWS.Cells(Rows.Count, 2).End(xlUp).Row + 1
With HelpWS
For HZeile = 9 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(HZeile, 11) = 1 Then
.Range(.Cells(HZeile, 1), Cells(HZeile, 6)).Copy
BeefWS.Range("B" & freieZeileBeef).PasteSpecial xlPasteValues
freieZeileBeef = freieZeileBeef + 1
End If
Next HZeile
End With
Application.CutCopyMode = False
BeefWS.Activate
Set BeefWS = Nothing
Set HelpWS = Nothing
End Sub
Was noch nicht funktioniert: Dieser Code funktioniert momentan nur in Tabelle 5 (Hilfstabelle 1). Das diese Tabelle jedoch ausgeblendet werden soll, muss der Code mittels Button auf der Tabelle 2 (Beef) gestartet werden können.
Wie müsste der code umgeschrieben werden?
Gruss
Sunny
|