In Tabellen1 ziehe ich aus anderen Tabellen über Formeln Werte zusammen. Dabei sind in Tabelle1 soviele Zeilen mit Formeln gefüllt, wie maximal zusammenkommen können.
Nun möchte ich per Makro den Bereich, der tatsächlich Werte enthält ans Ende von Tabelle2 übertragen. In Spalte E enthält die erste nicht gefüllte Zelle ein #NV, das ich Suche.
Dann kommt der Teil, der mir Probleme macht. Ich muss einen Bereich markieren, ausgehend von der gefundenen #NV-Zelle eine Zeile hoch und 6 Spalten nach rechts, von dort aus zurück bis A2.
Diesen markierten Bereich kopiere ich dann in die erste leere Zelle in Spalte A der Tabelle 2 und springe zurück in Tabelle1.
Hier das Script in dem mir nur noch die Bereichsdefinition fehlt.
Wie muss ich diese Definition richtig schreiben?
Sub Bereichkopieren()
Range("E2").Select
Cells.Find(What:="#NV", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
>> Zelladresse1 = Range( "aktuell gefundene Zelle - 1 Zeile nach oben + 6 Spalten nach _
rechts").Select
>> Range("A2:Zelladresse1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("B2").Select
Application.CutCopyMode = False
End Sub
GrußHans