Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Multiselect per VBA

Zellen Multiselect per VBA
06.11.2008 02:11:00
marion
Hallo,
Leider habe ich im Archiv nicht das Richtige gefunden, daher bitte ich hier um Hilfe.
Ich möchte per VBA mehrere Zellen selektieren.
for i = 1 to 100
if cells(1, i ) = "Test" then
cells(1, i).Multiselect 'geht natürlich nicht, oder?
( hier ist das Problem, es sollen mehrere nicht zusammenhängende Zellen selektiert werden. So wie "Shift+Mausklick)
end if
next i
Hoffe ich habe mich verständlich ausgedrückt.
Per Makro mehrere nicht zusammenhängende Zellen selektieren ( in einer for/next Schleife).
Ich hoffe auf Eure Hilfe und Danke schon einmal für jede Anregung.
marion

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen Multiselect per VBA
06.11.2008 07:45:32
Werner
Hallo Marion,
es gibt da bestimmt eine elegantere Lösung, um die Zellen zu formatieren (?) oder ähnliches wo ein bestimmter Text enthalten ist.
Trotzdem hier mal ein evtl. Lösungsansatz, der jede Zelle, wo der Text "Test" vorhanden ist, selektiert.
Ich habe in diesem Beispiel eine Stringvariable benutzt, die nicht unendlich "befüllt" werden kann.
Bei über 40 gefundene Zellen mit "Test", steigt die Prozedure aus.
Hier der Code:


Sub RngSelect()
Dim r, c, Zaehler As Integer
Dim RngStr As String
Zaehler = 0
  For r = 1 To 10
    For c = 1 To 10
      If ActiveSheet.Cells(c, r).Value = "Test" Then
        Zaehler = Zaehler + 1
        RngStr = RngStr & "," & ActiveSheet.Cells(c, r).Address
        If Zaehler > 40 Then
          MsgBox "Bereich zu groß"
          Exit Sub
        End If
      End If
    Next c
  Next r
  RngStr = Mid(RngStr, 2)
  If RngStr <> "" Then ActiveSheet.Range(RngStr).Select
End Sub


Gruß
Werner
Anzeige
AW: Zellen Multiselect per VBA
06.11.2008 07:52:00
Beverly
Hi Marion,

Sub multi_select()
Dim raBereich As Range
Dim inZelle As Integer
For inZelle = 1 To 100
If Cells(1, inZelle) = "Test" Then
If raBereich Is Nothing Then
Set raBereich = Cells(1, inZelle)
Else
Set raBereich = Union(raBereich, Cells(1, inZelle))
End If
End If
Next inZelle
raBereich.Select
Set raBereich = Nothing
End Sub



Danke Werner, Danke Beverly, klappt
06.11.2008 12:07:00
marion
Danke Werner u Beverly,
klappt wunderbar.
schönen Tag
marion

301 Forumthreads zu ähnlichen Themen

Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
Anzeige
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
select case - Listbox?
Klaus

Ich möchte je nach Vorgabe von bestimmten Kriterien unterschiedliche Berechnungen ausführen lassen oder eben unterschiedliche Aktionen.
Als Beispiel für das gesuchte Schema:
In A1 steht 1
In B1 steht 2
In C1 steht entweder Multiplizieren oder Dividieren oder Addieren oder Subtra...
04.05.2010 12:54:25
Thread-ID: 1155327
3 Beiträge
Anzeige
Mehrfachselect in ListBox und Klick-Ereignis?
Kasimir

Hallo an alle Helfer!
Ich habe da mal eine Frage zum Arbeiten mit einer ListBox. Ich habe eine ListBox, in der ich mir Daten auflisten lasse. Klickt man eine Zeile der ListBox an, werden mir die Daten in TextBoxen geschrieben, so dass ich die Daten darüber ändern kann.
Nun hatte ich na...
25.03.2011 21:35:22
Thread-ID: 1207658
5 Beiträge
HTMLSelect (Listbox)
Thomas

Hi an alle,
mein Problem ist es, wenn ich html in Excel umwandel generiert er mir eine HTML-Select-box in eine Excel HTMLSelect (listbox). Nun hab ich eine HTMLSelect (Listbox) mit ungefaehr 60 Eintraege, wenn ich allerdings einen Eintrag > 41 auswaehl stürzt mir mein Excel ab.
Kann es se...
12.06.2002 16:28:24
Thread-ID: 128162
2 Beiträge
For-Schleife für Multiselect in Listbox
Tom

Hallo,
Ich habe in einer Userform eine Listbox, die alle Tabellennamen meiner Arbeitsmappe enthält. Diese Tabellennamen sind zusätlich noch mit einem Hyperlink zu einer bestimmten Zelle auf dem jeweiligen Blatt hinterlegt. Klicke ich einen Tabellennamen, wird automatisch im Hintergrund der...
18.09.2014 09:56:17
Thread-ID: 1382221
4 Beiträge
VBA Listbox kopieren und löschen ( Multiselect)
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
...
17.04.2015 14:42:05
Thread-ID: 1421497
4 Beiträge
Beim Öffnen von Multi-Select Listbox alles auswähl
Multi-Select

Hallo,
ich habe eine Userform (frmOptions), die eine Multi-Select Listbox (lstOptions) enthält.
Gibt es eine Möglichkeit, dass beim Öffnen der Userform alle Optionen dieser Listbox automatisch ausgewählt, also mit dem Häkchen davor erscheinen, statt ohne ?
Ich dachte, ich kann daf...
27.10.2015 11:38:59
Thread-ID: 1454687
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
3
2
2
4
1
3
3
4
2
2
2
2
7
9
5
3
7
5
3
4
3
2
13