zelle erkennen und markieren
30.09.2004 18:22:47
Gerhard
Ich habe in spalte A bis zur Zeile A135 befüllt
Die spalte B bis B100 befüllt.
Nun möchte ich dass die Der Wert B100 bis zur Zelle B135 kopiert wird.
Sprich er soll immer bis zu der Zelle in Spalte B kopieren wo in Spalte a der letzte Wert ist.
Ermittelt habe ich die Werte schon und in Variablen habe ich sie auch schon gespeichert. auch die Anzeige funktioniert wie folgt:
Sub KopierenbiszumEnde()
Sheets("Tabelle1").Activate
'letzte Zelle in Spalte A erkennen
Range("a65536").End(xlUp).Select
'Aktive Zelle auswäheln für benennung
Dim neuereportwerte As String
ActiveCell.Select
'Aktive Zelle in Variable Neuereportwerte speichern
neuereportwerte = ActiveCell.Address
' letzte Zelle in Spalte B erkennen
Range("b65536").End(xlUp).Select
Dim altewerte As String
ActiveCell.Select
'Aktive Zelle in Spalte b in Variable altewerte speichern
altewerte = ActiveCell.Address
MsgBox "Die Zelle 1 lautet: " & neuereportwerte & " Die Zelle 2 lautet: " & altewerte
End Sub
könnt ihr mir da bitte helfen
Vielen Vielen Dank auch für die bisherige Hilfe