Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
200to204
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Zellen gleichzeitig markieren

mehrere Zellen gleichzeitig markieren
10.01.2003 07:57:36
H.- Udo
Hallo,

Wie kann ich mit VBA mehere Zellen gleichzeitig (alle grauen) in einer Spalte (B) markieren ?

(Diese Zellinhalte sollen in eine andere Spalte kopiert werden, allerdings ohne die zwischenliegenden "leeren" (weißen) Zellen)

Vielen Dank im Voraus

H.- Udo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mein bisheriger Code (Versuch)
10.01.2003 08:08:12
H.- Udo

Sub test0()
For i = 1 To 120
For k = 4 To 8
If (Worksheets("Werte").Range("B" & i).Interior.ColorIndex = 40) = True Then _
Worksheets("Werte").Range("K" & k).Value = Worksheets("Werte").Range("B" & i).Value
Next k
Next i
End Sub

Leider kopiert dieser Code die letzte gefundene Zelle 5 mal, und nicht jede gefundene Zelle einzeln.

Sub test3()
Dim farbe As Range
Range("B:B").Activate
For Each farbe In Selection.Cells
If farbe.Interior.ColorIndex = 40 Then farbe.Select
Next
End Sub


Dieser Code markiert ebenfalls nur den letzten gefundenen Eintrag.



Anzeige
Re: mehrere Zellen gleichzeitig markieren
10.01.2003 08:21:09
Steffen D
Hi Udo,

schau dir mal diese Zeile an, und teste sie:

Range("B1,B5,B10,B15,B25,B26,B32").Select

nun musst du jetzt einfach zuerst diesen Text (B1,B5,B10...) in deiner Schleife generieren und dann am ende das ganze markieren

Gruß
Steffen D

Re: mehrere Zellen gleichzeitig markieren
10.01.2003 08:32:41
H.- Udo
Hi Steffen,

Das ist ja mein Problem. Ich krieg es nicht gebacken, mehrere Zeilen gleichzeitig zu markieren. Zumal die zu markierenden Zellen keine feste Position haben.


Gruß
H.- Udo

Re: mein bisheriger Code (Versuch)
10.01.2003 09:29:18
Hajo_Zi
Hallo H.-Udo


Option Explicit

	

Sub Udo()

	Dim LoI As Long

	Dim LoLetzte As Long

	'   letzte Zeile in Spalte B feststellen

	If [B65536] = "" Then

		LoLetzte = [B65536].End(xlUp).Row

	Else

		LoLetzte = 65536

	End If

	With Worksheets("Werte")

		For LoI = 1 To LoLetzte

		If .Range("B" & LoI).Interior.ColorIndex = 40 Then _

			.Range("K" & [K65536].End(xlUp).Row + 1).Value = .Range("B" & LoI).Value

		Next LoI

	End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Anzeige
Re: mehrere Zellen gleichzeitig markieren
10.01.2003 09:37:58
Steffen D
Hi,

schau dir mal dieses Beispiel an:

Gruß
Steffen D

Danke
10.01.2003 10:07:14
H.- Udo
Halo Hajo,

verstehen tue ich es nicht, aber funktionieren tut es.

Danke

Dank auch an Steffen für seine Hilfe.

Gruß
H.- Udo (Udo)

82 Forumthreads zu ähnlichen Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
VBA verschiedene Zellen auswählen und ausgeben
Roger

Hallo zusammen
Ich hab folgenden VBA Code um Daten von Excel in Word auszugeben, das funktioniert einwandfrei. Nun möchte ich den aber so abändern das er mir nur die Zellen M7, N24 und P7, Q24 und S7, T24 in Word ausgibt. Was muss ich da abändern?
Private Sub CommandButton1_Click() Dim...
23.07.2009 18:29:31
Thread-ID: 1090473
4 Beiträge
Anzeige
Befehl Range("A1") bei mehreren Zellen?
Christian

Hallo,
ich hab im Excel Ein Makro geschrieben, mit dessen hilfe per Knopfdruck eine Mail an einen bestimmten Empfänger gesendet wird. Im Betreff und Text sind bestimmte Zelleninhalte mit dem Befehl Range("A1")
Wie kann ich das machen, wenn ich mehrere Zelleninhalte hab (A1, A2, A3, A4....
05.10.2009 12:54:12
Thread-ID: 1107243
5 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
VBA;Alle Zellen in Spalte A untereinander
Günter

Schönen guten Tag,
habe schon einiges recherchiert. Aber folgendes finde ich nicht:
Ein Makro soll mir alle vorhandenen Zellen (ab Spalte B)
in Spalte A kopieren. Alles müßte in Spalte A untereinander stehen.
Vielen Dank
Gruß
Günter
09.12.2009 15:14:12
Thread-ID: 1122647
9 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Wie füllt man mehrere Zellen gleichzeitig aus?
Thomas

Hallo Forum,
ich möchte gerne einen Stundenzettel entwerfen, wo bestimmte Informationen durch ein Dropdown-Menü ausgewählt werden sollen.
In meiner Datei findet ihr 2 Lösungsansätze.
In der Tabelle1 habe ich über Steuerelemente in Spalte E die Möglichkeit die nachfolgenden Spalten F...
19.12.2010 14:13:23
Thread-ID: 1192080
5 Beiträge

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
2
2
6
3
8
4
1
8
2
4
7
10
7
3
4
2
7
12
3
5
6
9
8
3
5