Office - Word, Excel und Co. 9.709 Themen, 40.894 Beiträge

Verfolgung starten Optionen

Spaltenbereiche in Excel automatisch selektieren

Kolti / 3 Antworten / Flachansicht Nickles

Ich habe mir ein VBA-Makro in Excel geschrieben, um Kopiervorgänge und Textumsetzungen in HTML zu automatisieren. Den Code habe ich Buttons zugeordnet, damit es nur noch auf Klick passiert.

Das Ergebnis dieser HTML-Geschichte steht in einem Spaltenbereich, der je nach Eingabe eine verschiedene Größe haben kann.
Diesen Bereich muß ich kopieren.

Range("D5:D10").Select bis Range("D5:D30").Select

Das sind die möglichen. Nun wäre es prima, wenn man das Ende des Bereichs mit einer Variablen versehen könnte.

Außer die Case-Funktion zu benutzen ist mir nichts Besseres eingefallen.
Ideal wäre: Range("D5:D(X)").Select, da ich wegen der Case-Anweisung ja vorher den notwendigen Bereich ermittelt habe.

bei Antwort benachrichtigen
Hallo Kolti Range D5:D cells 65536,4 .End xlUp .Row .select D 4 Tschüs H.W hw.schmidt
Kolti hw.schmidt „Hallo Kolti Range D5:D cells 65536,4 .End xlUp .Row .select D 4 Tschüs H.W“
Optionen

Erstmal Danke für Deine Antwort.
Diese Methode ist schon mal nicht schlecht, funktioniert bei aber nicht richtig.
Das liegt daran, daß in dem Bereich D5:D29 schon Formeln drin stehen.
So selektiert er grundsätzlich immer bis D29.

Was ich mache:
In der Spalte A befinden sich laufende Nummern von 1 bis maximal 25.
In Spalte B befinden sich Interpreten und in der Spalte C deren Lieder.
Sobald in den Zeilen der Spalte C Lieder drinstehen, erscheint in Spalte D die entsprechende Info in HTML-Code, um eine Webseite damit zu beliefern.

Beispiel des Ergebnisses:
<LI><FONT face=Arial><STRONG>Kolti -- Mein Lied </STRONG></FONT>

Es muß also eine Funktion sein, die den Bereich ermittelt, ohne die Formeln zu berücksichtigen.


Die Formel:
=WENN(C8="";"";"<LI><FONT face=Arial><STRONG>"&B8&" -- "&C8&" "&"</STRONG></FONT>")

bei Antwort benachrichtigen
@H.W. Danke Kolti