mehrere Zeilen markieren und daraus Range auslesen, Excel2K3

29/01/2008 - 21:32 von Andreas Volkert | Report spam
Hallo liebe Newsgroup-Freunde,

würdet Ihr mir bitte etwas unter die Arme greifen bei folgendem Problem?

Aus einer Tabelle (beschrifteter Bereich A1:T500) sollen durch Markieren
Daten in eine Textdatei exportiert werden. Die Markierung findet entweder
statt durch

- Markieren einer bestimten Zeilenzahl innerhalb des zu exportierenden
Bereiches (also z.B. Zeile 2:10) oder
- Markieren eines Zellbereiches (also z.B. A2:A10).
- Theoretisch auch durch Markieren mehrerer Zellen innerhalb des
beschrifteten Bereiches (z.B. B2:B10).

In allen 3 Fàllen (gesamte Zeilenmarkierung oder Markierung A2:A10 oder
B2:B10) soll die Markierung aber trotzdem in A2 beginnen und bis zum Ende
des beschrifeten Bereiches T10 reichen.

Dabei soll also die Markierung automatisch auf die volle Breite der
beschrifteten Tabelle erweitert werden. Danach will ich dann den
Export-Vorgang starten.

Nun meine Frage:

Wie mache ich es am besten per VBA, dass - beginnend mit der ersten
markierten Zeile Excel die Bereichsmarkierung immer bis zur letzen Zeile der
Beispielmarkierung markiert?

Schon mal ganz herzlichehn Dank für Euere Hilfe und Anregungen.

Viele Grüße aus München

Andi Volkert
 

Lesen sie die antworten

#1 Peter Schleif
29/01/2008 - 22:15 | Warnen spam
Hallo liebe Newsgroup-Freunde,



Hallo


Wie mache ich es am besten per VBA, dass - beginnend mit der ersten
markierten Zeile Excel die Bereichsmarkierung immer bis zur letzen Zeile der
Beispielmarkierung markiert?



Hier erst mal die automatische Erweiterung der Markierung beginnend
mit der ersten Zeile des ursprünglich markierten Bereichs bis zu Zelle
T500. Mit einer kleinen Sicherheitsabfrage, damit nicht jede
Mini-Markierung den Erweiterungs-Prozess startet (die Markierung muss
mindestens 5 Zeilen überspannen)

F1: War es das was Du wolltest?
F2: Brauchst Du auch Hilfe beim Export in die Text-Datei?

Peter


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Bei Bedarf anpassen oder entfernen
If Target.Rows.Count < 5 Then
Exit Sub
End If

Range(Cells(Target.Row, "A"), [T500]).Select

End Sub

Ähnliche fragen