Der code:
Sub din_haus_immobilien()
ActiveSheet.Unprotect
'ganze tabelle inklusive kommentare löschen
Range("B4:Z4").Select
'Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.ClearComments
Range("A4").Select
'anbieter din haus akt
Dim DinHaus As Worksheet
Dim immobilien As Worksheet
Dim letzteReiheDinHaus As Long
Dim letzteReiheImmobilien As Long
Set DinHaus = Worksheets("Dinslaken Haus")
Set immobilien = Worksheets("immobilien")
'letzte reihe din haus bild finden
letzteReiheDinHausBild = DinHaus.Cells(DinHaus.Rows.Count, "AM").End(xlUp).Row
'letzte reihe din haus link finden
letzteReiheDinHausLink = DinHaus.Cells(DinHaus.Rows.Count, "C").End(xlUp).Row
'letzte reihe din haus id finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "B").End(xlUp).Row
'letzte reihe din haus WFL finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "H").End(xlUp).Row
'letzte reihe din haus grundstück finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "G").End(xlUp).Row
'letzte reihe din haus bj finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "F").End(xlUp).Row
'letzte reihe din haus Anbieter finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "R").End(xlUp).Row
'letzte reihe din haus angeboten seit finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "D").End(xlUp).Row
'letzte reihe din haus deaktiviert finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "Q").End(xlUp).Row
'letzte reihe din haus verkauft jn finden
letzteReiheDinHaus = DinHaus.Cells(DinHaus.Rows.Count, "X").End(xlUp).Row
'letzte reihe immobilien Bild finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "Z").End(xlUp).Row + 1
'letzte reihe immobilien link finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "b").End(xlUp).Row + 1
'letzte reihe immobilien ID finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "C").End(xlUp).Row + 1
'letzte reihe immobilien wfl finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "D").End(xlUp).Row + 1
'letzte reihe immobilien grundstück finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "E").End(xlUp).Row + 1
'letzte reihe immobilien bj finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "F").End(xlUp).Row + 1
' reihe immobilien anbieter finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "G").End(xlUp).Row + 1
'letzte reihe immobilien angebot seit finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "H").End(xlUp).Row + 1
'letzte reihe immobilien deaktiviert finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "i").End(xlUp).Row + 1
'letzte reihe immobilien verkauft jn finden
letzteReiheImmobilien = immobilien.Cells(immobilien.Rows.Count, "J").End(xlUp).Row + 1
'kopieren Bild
DinHaus.Range("AM6:AM" & letzteReiheDinHaus).Copy _
immobilien.Range("Z" & letzteReiheImmobilien)
'kopieren link
DinHaus.Range("C6:C" & letzteReiheDinHaus).Copy _
immobilien.Range("B" & letzteReiheImmobilien)
'kopieren ID
DinHaus.Range("B6:B" & letzteReiheDinHaus).Copy _
immobilien.Range("C" & letzteReiheImmobilien)
'kopieren wfl
DinHaus.Range("H6:H" & letzteReiheDinHaus).Copy _
immobilien.Range("D" & letzteReiheImmobilien)
'kopieren grundstück
DinHaus.Range("G6:G" & letzteReiheDinHaus).Copy _
immobilien.Range("E" & letzteReiheImmobilien)
'kopieren bj
DinHaus.Range("F6:F" & letzteReiheDinHaus).Copy _
immobilien.Range("F" & letzteReiheImmobilien)
'kopieren Anbieter
DinHaus.Range("R6:R" & letzteReiheDinHaus).Copy _
immobilien.Range("G" & letzteReiheImmobilien)
'kopieren angeboten seit
DinHaus.Range("D6:D" & letzteReiheDinHaus).Copy _
immobilien.Range("H" & letzteReiheImmobilien)
'kopieren deaktiviert
DinHaus.Range("Q6:Q" & letzteReiheDinHaus).Copy _
immobilien.Range("I" & letzteReiheImmobilien)
'kopieren verkauft jn
DinHaus.Range("X6:X" & letzteReiheDinHaus).Copy _
immobilien.Range("J" & letzteReiheImmobilien)
End Sub
Die letzte Zeile ist das Problem, dass in "DinHaus.Range("X6:X" & letzteReiheDinHaus).Copy _" die Formel steht und ich aber nur den Wert in die neue Tabelle "immobilien" kopieren will.
Aber wie gesagt, vielleicht geht der ganze code auch smarter. Denn, das dauert schon ne weile bis der code durchlaufen ist und da sollen noch 10 Tabellen mit rein!!
Wie gesagt, ich habe den code nur angepasst, nicht selber geschrieben!!!
Herzliche Grüße, Andreas