Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Zellen selektieren

Forumthread: VBA - Zellen selektieren

VBA - Zellen selektieren
06.05.2020 13:17:53
wolf
Liebe Excel Gemeinde,
in Spalte A steht in unterschiedlichen Zeilen "/". Alle Zeilen in Spalte A mit "/" sollen per VBA zu Krontollzwecken selectiert werden, mehr nicht.
Wer kann weiterhelfen.
Gruß
wolf ludwig
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zellen selektieren
06.05.2020 13:40:59
wolf
Stimmt, da mir mein Chef im Nacken sitzt habe ich hier auch mein Glück versucht.
Gruß
wolf ludwig
Anzeige
OT: Du weißt schon, ...
06.05.2020 23:07:04
Luc:?
…Steve,
dass sich verbundene Zellen und Daten in allen diesen Zellen nicht gegenseitig ausschließen (deine AW an Hoisen im CEF); auch nicht MatrixFmln und diese Zellen, was dann genauso einfache Fmln erlaubt…‽
Tja, wenn du schon dieses „Forum“ verlinkst, kannst du ggf mit einem Kommentar meinerseits rechnen… ;-]
Gruß, Luc :-?
„Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder.“ Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit …
Anzeige
AW: VBA - Zellen selektieren
06.05.2020 14:27:34
Martin
Hallo Wolf Ludwig,
ich bin zwar auch kein Freund von Crossposting, aber hier die passende VBA-Lösung:
Sub SlashMarker()
Dim rngRow As Range, rngSelect As Range
For Each rngRow In ActiveSheet.UsedRange.Rows
If InStr(Cells(rngRow.Row, 1), "/") > 0 Then
If rngSelect Is Nothing Then
Set rngSelect = rngRow
Else
Set rngSelect = Union(rngSelect, rngRow)
End If
End If
Next
rngSelect.EntireRow.Select
End Sub
Viele Grüße
Martin
Anzeige
AW: VBA - Zellen selektieren
06.05.2020 14:31:03
Dieter(Drummer)
Hallo Martin,
da warst Du schneller und besser.
Gruß, Dieter(Drummer)
PS bin auch nicht für Cross Posting
@Dieter(Drummer)
06.05.2020 14:41:37
Martin
Hallo Dieter,
eigentlich hätte ich das Makro schon viel schneller fertig gehabt, wenn mir nicht das Wort "Union" entfallen wäre. Ich musste selbst bestimmt 5 bis 10 Minuten googeln, um den Begriff zu finden. Aber daran zeigt sich, dass man immer mal wieder im Forum helfen sollte, um seine eigenen grauen Zellen zu reaktivieren.
Mir ist es auch schon oft passiert, dass andere Forenmitglieder schneller und besser geantwortet haben als ich. Aber es ist ja auch interessant, wenn man alternative Lösungsmöglichkeiten entdeckt. Im Idealfall lernt man sogar etwas dazu.
Viele Grüße
Martin
Anzeige
AW: @Martin
06.05.2020 15:37:30
Dieter(Drummer)
Hallo Martin,
ja, das sind wahre Worte ...
Gruß, Dieter(Drummer)
AW: VBA - Zellen selektieren
06.05.2020 14:36:06
Martin
Hallo Wolf Ludwig,
ich habe erst jetzt im anderen Forum gelesen, dass eigentlich nur Zeilen eingefügt werden sollen. Das kann natürlich gleich vom Makro erledigt werden:
Sub SlashRowInsert()
Dim rngRow As Range, rngSelect As Range
For Each rngRow In ActiveSheet.UsedRange.Rows
If InStr(Cells(rngRow.Row, 1), "/") > 0 Then
If rngSelect Is Nothing Then
Set rngSelect = rngRow
Else
Set rngSelect = Union(rngSelect, rngRow)
End If
End If
Next
rngSelect.Insert Shift:=xlDown
End Sub
Viele Grüße
Martin
Anzeige
AW: VBA - Zeichen / suchen und Zelle färben
06.05.2020 14:28:49
Dieter(Drummer)
Hallo Wolf-Ludwig,
habe hier etwas im Netz gefunden, kann aber nicht mehr sagen wo und von wem.
Habe es dann etwas angepasst. Es wird in Spalte A nach "/" gesucht und Fundzelle wird rot gefärbt.
Da ich nicht zu den VBA Spezialisten gehöre, kann ich sonst auch nicht weiter helfen.
Gruß, Dieter(Drummer)
Hier der Code ins Modul: 
Sub Zeichen()
Dim symbol As Integer
Dim Zeile_s As Integer
Dim Zeichen As Long
For Zeile_s = 1 To 100
For Zeichen = 1 To Len(Cells(Zeile_s, 1))
If Mid(Cells(Zeile_s, 1), Zeichen, 1) = " " Then
MsgBox "Ich habe ein - gefunden"
Exit For
ElseIf Mid(Cells(Zeile_s, 1), Zeichen, 1) = "/" Then
Cells(Zeile_s, 1).Interior.Color = vbRed
'MsgBox "Ich habe ein / gefunden"
Exit For
End If
Next
Next
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
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
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
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
Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 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: Zellen selektieren bei geteiltem Fenster ?
Melanie

Hallo,
ich habe ein grosse Excel Tabelle mit vielen Zeilen und habe das Fenster horizontal aufgeteilt, damit ich beim manuellen Scrollen nach unten immer die obersten Zeilen unveraendert sichtbar habe.
Nun moechte ich per VBA verschiedene Zellen im unteren Bereich selektieren und aktiv...
21.10.2009 23:54:36
Thread-ID: 1111215
3 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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