Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markieren eines bestimmten Bereichs

Forumthread: Markieren eines bestimmten Bereichs

Markieren eines bestimmten Bereichs
12.07.2004 08:40:08
Markus
Hallo zusammen
Ich habe da ein Problem und zwar soll ich ein Makro entwickeln, das Exceltabellen automatisch in eine bestimmte Form bringt.
Mein Problem liegt nun darin, das die Listen zwar den gleichen Aufbau haben aber immer eine unterschiedliche Länge.
Weis jemand, wie man zum Bsp. sagt :


a = suche Summe 1. Tor (und gehe 1e zelle höher)
b = suche Nummer (und gehe 1e zelle tiefer)
Markiere von a bis b
Hoffe mir kann jemand helfen. Im Voraus schon mal Danke.
Gruß Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Markieren eines bestimmten Bereichs
Jan
Hi Markus,
für Dein Problem wäre eine Beispielarbeitsmappe sehr hilfreich!
Es gibt viele Lösungen, die zum Ziel führen, aber von verschiedenen
Ausgangsvoraussetzungen abhängig sind.
Jan
AW: Markieren eines bestimmten Bereichs
12.07.2004 11:03:50
Markus
Danke für deine Antwort Jan
Ich habe eine Beispielmappe gemacht https://www.herber.de/bbs/user/8397.xls
in spalte 1 soll z.B. das entsprechende Tor (hier is es "01") stehen. Bei sich ständig ändernden Liferanten(an)zahlen.
Hoffe das man damit mehr anfangen kann
hab irgendwie probleme gehabt auf deinen Beitrag zu antworten. Deswegen hab ich es so gemacht.
Gruß Markus
Anzeige
AW: Markieren eines bestimmten Bereichs
Jan
Hi Markus,
Für Dein Beispiel habe ich Dir mal ein Makro erstellt.
Dieses Makro kannst Du in einem Modul im VBE (ALT + F11) einfügen
und eventuell einer Schaltfläche zur Ausführung zu weisen.
Das könnte ein erster Ansatz sein. Teste es mal durch.
Sub suche()
Dim z, s As Integer
Set ws1 = Worksheets("Tabelle1")
nr = "Nummer"
s1 = "1. Tor Summe"
With Worksheets(1).Range("b1:b500")
Set c = .Find(nr, LookIn:=xlValues)
Set d = .Find(s1, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
z = Range(firstaddress).Row
If Not d Is Nothing Then
secaddr = d.Address
l = Range(secaddr).Row
Range(Cells(z + 1, 1), Cells(l - 1, 255)).Select
End If
End If
End With
Jan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige