Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
Sub variable_AnzahlZeilen_kopieren()
Dim i As Double 'hab sicherheitshalber double genommen, da ich
Dim letzte_Zeile As Double 'nicht wusste, wie groß deine tabelle ist
For i = 1 To Sheets("Tabelle1").UsedRange.Rows.Count
If Cells(i, 1) = "definierter Inhalt letzte zeile" Then ' guckt ab der ersten zeile in _
der ersten Spalte
letzte_Zeile = i
Exit For
End If
Next
Range(Cells(1, 1), Cells(letzte_Zeile, 255)).Copy
Sheets("neue Tabelle").Range("A1").Paste
End Sub
Gruß
Denyo
Sub Kopieren
Dim Zelle1 as Range, Zelle2 as range
Set Zelle1 = Cells(1,1) ' Beginn des Kopierbereichs, fix erste Zeile, erst Spalte
Set Zelle2 = Columns(1).Find(what:="Ende". lookin:=Xlvalues, lookat:=xlpart)
IF Not Zelle2 is Nothing then
Range(Zelle1, Zelle2).Copy Destination:=Sheets("Tabelle2").Cells(1,1)
Else
Msgbox "Es konnte keine Zelle gefunden werden")
end if
End Sub
dieses Makro würde alle Zellen kopieren, die zwischen der erste Zelle und der Zelle liegen, die den Text "Ende" enthält
Gruß, Daniel