Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgewählte Zellen zu einem Bereich vereinen

Ausgewählte Zellen zu einem Bereich vereinen
25.03.2008 09:11:13
Jonatan
Hallo,
habe folgende Frage:
Wenn in Spalte B der Text "Verhältnis" steht, soll die Zelle, die drei Spalten neben B steht, ausgewählt werden.
Schlussendlich sollen alle Zellen auswählbar sein. Ich weiß leider nicht, wie ich den Bereich jeweils erweitern kann.
Hier mein Ansatz

Sub Hallo()
Dim Bereich As Range
Dim zel As Range
With ThisWorkbook.Worksheets("Hallo")
For Each zel In .Range("B1:B900")
If zel = "Verhältnis" Then
Bereich = Bereich & Range(zel.Offset(0, 3)) ' Hier bräuchte ich eure Hilfe
End If
Next zel
End With
Bereich.Select
End Sub


Vielen Dank für Eure Hilfe
Gruß Jonatan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgewählte Zellen zu einem Bereich vereinen
25.03.2008 09:49:00
fcs
Hallo Jonatan,
mit folgenden Anpassungen geht es.
Gruß
Franz

Sub Hallo()
Dim Bereich As Range
Dim zel As Range
With ThisWorkbook.Worksheets("Hallo")
For Each zel In .Range("B1:B900")
If zel = "Verhältnis" Then
If Bereich Is Nothing Then
'"Verhältnis wurde das 1. Mal gefunden
Set Bereich = zel.Offset(0, 3)
Else
'weitere Fundstellen hinzufügen
Set Bereich = Application.Union(Bereich, zel.Offset(0, 3))
End If
End If
Next zel
End With
If Bereich Is Nothing Then
MsgBox """Verhältnis"" wurde in Spalte B nicht gefunden!"
Else
Bereich.Select
End If
End Sub


Anzeige
AW: Ausgewählte Zellen zu einem Bereich vereinen
25.03.2008 10:02:00
Jonatan
SUPER.
Vielen Dank.
Gruß Jonatan

236 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige