---

Moin Leutz, es is soweit

Erste Frage: Besser hier oder im Excel-Forum posten !? - ich vermute mal hier...

Da ich (nutze Excel weil man da so schön mit den Rahmenlinien eine "Tabelle"
machen kann <grins> ) mit dem Makrorekorder nicht alle meine Wünsche
erfüllen kann, habe ich mir nun ein Einsteiger-Excel-Vba Buch zugelegt
[Excel VBA einfach klipp & klar, Monika Weber - werden einige ja kennen]

Der aktuelle Knackpunkt der mich zum Kauf eines Buches getrieben hat ist jener:
Aufgabe: finde letzte Zelle mit Wert in SpalteH. Formatiere dann den Zellenbereich
zwischen gefundener Zelle und A1. A1 steht Fest, auch die SpalteH, nur die Zeile
der SpalteH ist eben immer variabel.

Zum Glück gibt es für das finden der gesuchten Zelle ein Beispiel im Buch, nur
leider funktioniert irgendetwas nicht dabei.

Das Buch ist für Excel2003 geschrieben, ich nutze hier in der Firma gerade Excel2000.
(Also VB6.0 !?)

Das Beispiel lautet:

    Cells(65536, 2).End(x1Up) _
    .Interior.Color = vbRed oder auch:

    Cells(Rows.Count, 1).End(x1Up) _
    .Interior.Color = vbRed

und soll(te) die letzte Zelle in Spalte 2 bzw. 1 die mit einem Wert gefüllt ist eine
Hintergrundfarbe geben. Könnt Ihr mir auf die Sprünge Helfen ?

Und da ich gerade dabei bin: Wenn es denn funktioniert die gesuchte Zelle ausfindig
zu machen, wie bekomme ich die Information am besten in die Anweisung das der
Bereich (von gefundener Zelle bis A1) nun Formatiert werden soll !?
[Ich möchte zB Gitternetz/Rahmenlinien in diesem Bereich ]

So, da ich hier neu bin: Wenn Fragen sind : Nur zu : Stellen ! - Ist mein erste
Frage hier (glaub ich) da findet man ja so einige Fettnäpfchen 

Gruß Sebastian

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

---

Morgen Sebastian,

es muß xl - l wie ludwig - lauten.

Den letzten Wert in Spalte H (A=1, B=2, C=3, ... H=8!) findest Du via:

Cells(Rows.Count, 8).End(xlUp)

Um mit allen Zellen zwischen A1 und Obigem Teil was zu tun nimm am
Besten sowas:

  With Range(Range("A1"), Cells(Rows.Count, 8).End(xlUp))
      .Interior.ColorIndex = 3
  End With

CU, Bernd

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

---

Oh Mann, Isch Depp - steht doch nebendrann direkt eine 1 gedruckt !
Aber so ist es nunmal, wenn man schon angespannt ist sieht man den Wald und
die Bäume usw... genau.

Vielen Dank, U´s sind unterwegs.

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