Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variablen Bereich markieren

Variablen Bereich markieren
10.02.2003 21:52:26
Ingo
Hallo Leute ..

Ich möchte einen variablen Bereich innerhalb einer Excel-Tabelle und komme einfach nicht weiter :-(

Beispiel:
Ich habe in einer Tabelle in Zelle A6 das Wort Januar und in A13 das Wort Februar stehen. Nun möchte ich, dass der Bereich B8:D11 markiert wird.
Nun könnte Januar auch in A5 und Februar in A19 stehen. In diesem Fall sollte dann der Bereich B7:D17 markiert werden.

Gibt es dafür eine VBA-Lösung??
Danke

Gruß
Ingo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Variablen Bereich markieren
10.02.2003 22:10:18
kay.o

Hi,

klar mußte ne kleine such matrix schreiben ungefähr so:

private sub sowiso()
dim x,y as Integer
dim wert, bereich_start,bereich_end, bereich
for x = 1 to ""anzahlspalten in denen das ergebnis vorkommen kann""
for y = 1 to ""anzahltzeilen ..."
wert = cells(x,y)
if wert = "Januar" then bereich_start = cells(x,y).address
if wert = "Februar" then bereich_ende = cells(x,y).address
next
next
wert = bereich_start & ":" bereich_ende
bereich = range(wert)
select.bereich

end sub

habs frei aus der hand geschrieben, bitte nich über eventuelle schreibfehler sauer sein , denke aber das passt ;)

gruß
kay


Anzeige
Re: Variablen Bereich markieren
10.02.2003 22:56:04
Ingo

Hallo..

Klappt leider nicht. Ich bekommen mehrere Fehlermeldungen beim Ausführen des Makros. :-(((
Trotzdem schönen Dank

Gruß
Ingo

Re: Variablen Bereich markieren
11.02.2003 17:43:29
kay.o

Hi,

ja wie gesagt aus´m kopf geschrieben kann zu leichten fehlern kommen *g*


um den bereich zu vergößern brauchste nur in "For x = 1 To 10" die 10 erhöhen für die Zeilen und in "For y = 1 To 5" die 5 erhöhen für die Spalten.

gruß
Kay

PS: diesmal getestet ;)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige