Office: Letzte beschriebene Zelle in Spalte B finden

fischli · 11. Dezember 2016

HAllo zusammen,
ich möchte die letzte beschriebene Zelle in der Spalte B rausfindne und dann den Text.DAtum eintragen. Leider funktioniert mein Code nicht wo ist der Fehler.

Sheets("Übersicht").range(letztezeile = ActiveSheet.Cells(1048576, 2).End(xlUp).Row).Value = Datum.Text

DAnke*Smilie *entsetzt

:)

User · 12. Dezember 2016

Hallo fischli *wink.gif*

Ein Beispiel *rolleyes.gif*

Gruß Poltergeist *biggrin.gif*

Code:

Sub makro01()
'Letzte beschriebene zeile eines Worksheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Letzte beschriebene Spalte eines Worksheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'Letzte beschriebene zeile einer Spalte,die 1 steht fuer Spalte A
Cells(3, 1) = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Letzte beschriebene Spalte einer Zeile,die 4 steht fuer zeile 4
Cells(4, 1) = ActiveSheet.Rows(4).End(xlToRight).Column
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 12. Dezember 2016

Hallo fischli *wink.gif*

Das könnte dann so aussehen *rolleyes.gif*

Gruß Poltergeist *biggrin.gif*

Code:

Worksheets("Übersicht").Range("B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row) = DeineVariable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Uwi63 · 13. Dezember 2016

Hallo Poltergeist,
Dein Code ist nur dann korrekt, wenn das ActiveSheet auch gleichzeitig das Sheet("Übersicht") ist.
Sauberer wäre es so:
(Falls das aktuelle Datum eingetragen werden soll, geht es einfach mit "Date")
Code:

With Worksheets("Übersicht")
.Range("B" & .Cells(.Rows.Count, 2).End(xlUp).Row) = Date
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 13. Dezember 2016

Hallo Uwe *wink.gif*

War auf die schnelle verkehrt herum(der letzte Code),natürlich erst die variable dann die Zuweisung,war abgelenkt *entsetzt

Gruß Poltergeist *rolleyes.gif*

fischli · 13. Dezember 2016

super vielen Dank , es funktioniert

Office: Letzte beschriebene Zelle in Spalte B finden

Letzte beschriebene Zelle in Spalte B finden

Letzte beschriebene Zelle in Spalte B finden

Letzte beschriebene Zelle in Spalte B finden

Letzte beschriebene Zelle in Spalte B finden - Similar Threads - Letzte beschriebene Zelle

Zeile automatisch in Excel Tabellenformat einfügen, wenn letzte beschrieben

Letzte beschriebene Zeile kopieren

Drucken bis letzte beschriebene Zeile per VBA

Bis zur letzten beschriebenen Zelle zählen und sortieren

Letzte beschriebene Zelle in einer Spalte

letzte beschriebene Zelle ermitteln. Ohne Makros und VBA

aus Tabelle in Tabelle kopieren, dabei letzte beschriebene Zelle,erste leere Zelle