Excel: Makro-Tipp gesucht

Computer: Software & Programmierung Office Software
1

Hallo,
zur regelmäßigen Bearbeitung von unterschiedlich großen Tabellen (bestimmte Daten auslesen):
Ich möchte jeweils die Zeilen-Nr. mit dem letzten Eintrag im Tabellenblatt ermitteln und die Zeilen-Nr. als Zahlenwert speichern.
Zeilen-Nr. als Wert abspeichern??? Wie lautet die Bezeichnung/Begriff für Zeilen-Nr.???

Excel 2003

Danke im Voraus
Der Franke
Nicht zu faul, zu wenig Zeit zum Suchen.

2

Ich möchte jeweils die Zeilen-Nr. mit dem letzten Eintrag im
Tabellenblatt ermitteln und die Zeilen-Nr. als Zahlenwert
speichern.
Zeilen-Nr. als Wert abspeichern??? Wie lautet die
Bezeichnung/Begriff für Zeilen-Nr.???

Hi Franke,

so kriegst du die Zeilennummer des letzten Eintrages in der Spalte A nach B1 geschrieben:

Sub Makro1()
Range(„B1“) = Range(„A“ & Rows.Count).End(xlUp).Row
End Sub

Hilft das weiter?

Gruß
Reinhard

3

Hi Reinhard,

Sub Makro1()
Range(„B1“) = Range(„A“ & Rows.Count).End(xlUp).Row
End Sub
Hilft das weiter?

Grundsätzlich ja, da die Spalte mit dem letzten Eintrag bei jeder Tabelle immer die gleiche ist. Gäbe es eine Möglichkeit, die Zeilen-Nr. direkt einer Konstanten k zuzuordnen für einige Suchläufe in den Tabellen mit Schleifen „For i=1 to k“?

Gruß
Der Franke
meine Kenntnisse sind auf Grundsätze beschränkt :smile:

4

Grundsätzlich ja, da die Spalte mit dem letzten Eintrag bei
jeder Tabelle immer die gleiche ist. Gäbe es eine Möglichkeit,
die Zeilen-Nr. direkt einer Konstanten k zuzuordnen für einige
Suchläufe in den Tabellen mit Schleifen „For i=1 to k“?

Hi Franke,

so vielleicht?

Sub Makro1()
Dim K As Long, I As Long
K = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To K
 'Code1
Next I
For I = 1 To K
 'Code2
Next I
End Sub

Gruß
Reinhard

1 „Gefällt mir“
5

so vielleicht?

Sub Makro1()
Dim K As Long, I As Long
K = Range(„A“ & Rows.Count).End(xlUp).Row
For I = 1 To K
'Code1
Next I
For I = 1 To K
'Code2
Next I
End Sub

Ja, das paßt wunderbar.
Danke.

Gruß
Der Franke