Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige