---

Hallo, ich habe eine Ecxel Datei welche automatisch erzeugt und mit Daten gefüllt wird, mit Hilfe eines VBA Skriptes werte ich bereits diverse Spalten aus.
Mein Problem besteht jedoch darin das ich vorher nicht weiß wieviel zeilen die Tabelle enthält
Meine bisherigen Anweisungen habe ich in eine For-Schleife gepakt.

For zeile = 8 To 60
.......
next zeile

Die 60 möchte ich jetzt durch eine variable ersetzten in der die Anzahl der beschriebenen Zeilen, bzw. der letzten beschriebenen Zeile gespeichert wird!
Möglicherweise funktioniert dies über die Find Funktion, jedoch weiß ich nicht genau was ich hier eintragen muss um zu dem gewünschten ergebnis zu gelangen?

Gruß und dan schon mal vorweg

HKXVZBi

------------------
„Wenn man sagt, daß man einer Sache grundsätzlich zustimmt, so bedeutet es, daß man nicht die geringste Absicht hat, sie in der Praxis durchzuführen.“

Otto von Bismarck

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
schau mal >> hier <<, da ist ne kleine Übersicht drin mit den Möglichkeiten, die mir persönlich ganz gut gefallen.

Hr. google kennt sicher noch die ein oder andere Variante mehr.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die rasche Antwort, diesen Beitrag habe ich mir bereits durchgelesen und auch google ausgiebig befragt, leider konnte ich damit mein problem nicht lösen denn ich weiß nicht wie ich die "60" (aus der For-Schleife) durch den erhaltenen Wert ersetzten kann!

wobei diese dort aufgeführten methoden bei mir nicht funtionieren!! 

Cells.Find("*", [A1], , , xlByRows, xlPrevious).row  '(wenn letzte Zeile nicht beschrieben ist)

hier bekomme ich immer den fehler beim compileien: Unzulässige verwendung einer Eigenschaft 

------------------
„Wenn man sagt, daß man einer Sache grundsätzlich zustimmt, so bedeutet es, daß man nicht die geringste Absicht hat, sie in der Praxis durchzuführen.“

Otto von Bismarck

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dann setz Dir vorher eine Variable:

Code:

---

Sub test()
Dim LZA%, i%

LZA = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

For i = 1 To LZA 'Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'anstelle von LZA
    Debug.Print i
Next i
   
End Sub

---

Im Code sind jetzt mit Kommentarfunktion beide Varianten drin
Ich denke, damit solltest Du weiterkommen   

Ach ja: Du solltest entweder das sheet mitgeben ThisWorkbook.sheets(1).Cells...
Oder das Sheet vorher aktiv setzen (Sheets(1).Activate), sonst können schon mal unerwartete Ergebnisse auftauchen. Das ist aber was Grundsätzliches in der "Programmierung".

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super Tausend DANK es hat funktioniert!!!! Genau dannach hab ich gesucht!!!!

------------------
„Wenn man sagt, daß man einer Sache grundsätzlich zustimmt, so bedeutet es, daß man nicht die geringste Absicht hat, sie in der Praxis durchzuführen.“

Otto von Bismarck

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP