Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopieren bis in jeweils letzte Zeile

kopieren bis in jeweils letzte Zeile
20.02.2004 11:00:13
arend
Hallo Ihr,
ich importiere regelmäßig Daten aus einem anderen Programm. Leider werden diese Zahlen nur als Text geliefert, diese wandel ich per =Wert() in Zahlen um.
Nun möchte diese Routine per Makro erledigen lassen, d.h. das Makro soll die Formel automatisch bis in die letzte Zeile kopieren, die aber je Import eine andere sein kann. Lasse ich dabei den Makrorecorder laufen, schreibt dieser leider eine feste Zeile in das Makro.
allerbesten dank
arend

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren bis in jeweils letzte Zeile
20.02.2004 11:08:24
Tina
Die letze Zeile kannst Du über:
ActiveSheet.UsedRange.Rows.Count
bestimmen.
Tina
AW: kopieren bis in jeweils letzte Zeile
20.02.2004 11:15:23
PeterG
Hallo arend,
ermittle die letzte Zeile mit der nachfolgenden Routine und ersetze dann die feste Zeile mit der Variablen LZe
Standartmodul:


Sub Kopiere
Dim LZe as Single
LZe=LZEILE(ActiveSheet.name)
End Sub


Function LZEILE(Blatt$, Optional Mappe)
Dim WB As Workbook, SH As Worksheet
Dim z#, i#
If IsError(Mappe) Then
Set SH = ActiveWorkbook.Worksheets(Blatt)
Else
Set SH = Workbooks(CStr(Mappe)).Worksheets(Blatt)
End If
z = SH.UsedRange.Row + SH.UsedRange.Rows.Count - 1
For i = z To 1 Step -1
If Application.CountA(SH.Rows(i)) Then Exit For
Next i
LZEILE = i
End Function

Gruß PeterG
Anzeige

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige