Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Spalte B einen Wert mittels VBA setzen

In Spalte B einen Wert mittels VBA setzen
Josef
Hallo!
Ich habe nur in der Zelle B1 den Wert "ü" stehen.
Ab der 2.Zeile habe ich ca. 15000 Datensätze stehen.
Mit dem Autofilter suche ich jetzt nach dementsprechenden Werten in anderen Spalten.
Wenn jetzt z. B. 10 Werte gefunden werden, habe ich nun 10 Datensätze und möchte in der Spalte B in jeder dieser Zeilen ein "ü" setzen.
Wie würde hier bitte eine VBA Lösung aussehen?
Ich wäre für eine Hilfe dankbar.
Danke
Josef
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 14:36:58
JoWE
Hallo Josef,
vllt. so: Sub set_ü_if_Filter_gleich_true() Dim c As Object Dim r As Range Set r = ActiveSheet.Range("B2:B" & [B65536].End(xlUp).Row) For Each c In r If Rows(c.Row).Hidden = False Then c.Value = "ü" End If Next End Sub
Gruß,
Jochen
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 14:56:42
Josef
Hallo Jochen!
Danke für Deine Antwort.
Leider funktioniert es nicht. Es wird nur ein ü in B2 eingetragen. Danach nichts mehr.
Josef
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 15:24:19
Tino
Hallo,
versuche es mal so.
Dim Bereich As Range
Set Bereich = Range("B2", Cells(Rows.Count, 2).End(xlUp))
Set Bereich = Bereich.SpecialCells(xlCellTypeVisible)
Bereich.Value = "ü"
Gruß Tino
Anzeige
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 19:25:59
Josef
Hallo Tino!
Danke für Deine Antwort. Werde es gleich morgen in der Früh probieren.
Josef
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 15:30:38
JoWE
Makro funktioniert nur richtig, wenn die Tabelle schon gefiltert wurde.
Dann wird in allen noch sichtbaren Zellen der Spalte B ein "ü" eingetragen.
Bei mir (xl2003) klappt das hervorragend:
Zuerst der Inhalt der kompletten Spalte (Autofilterschaltfläche in B1),
Tabelle1

 ABC
1 Ü 
2 a22 
3 a23 
4 a24 
5 a25 
6 a26 
7 a27 
8 a28 
9 a29 
10 a30 
11 a31 
12 a32 
13 a33 
14 a34 
15 a35 
16 a36 
17 a37 
18 a38 
19 a39 
20 a40 
21 a41 
22 a42 
23 a43 
24 a44 
25 a45 
26 a46 
27 a47 
28 a48 
29 a49 
30 a50 
31 a51 
32 a52 
33 a53 
34 a54 
35 a55 
36 a56 
37 a57 
38 a58 
39 a59 
40 a60 
41 a61 
42 a62 
43 a63 
44 a64 
45   
46   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
jetzt gefiltert; über Daten, Filter, Autofilter : enthält 3
Tabelle1

 ABC
1 Ü 
3 a23 
10 a30 
11 a31 
12 a32 
13 a33 
14 a34 
15 a35 
16 a36 
17 a37 
18 a38 
19 a39 
23 a43 
33 a53 
43 a63 
45   
46   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
und schließlich das Ergebnis, nachdem auf die gefilterte Liste das Makro 
Sub set_ü_if_Filter_gleich_true()
Dim c As Object
Dim r As Range
Set r = ActiveSheet.Range("B2:B" & [B65536].End(xlUp).Row)
For Each c In r
If Rows(c.Row).Hidden = False Then
c.Value = "ü"
End If
Next
End Sub

gestartet wurde:
Tabelle1

 ABC
1 Ü 
3 ü 
10 ü 
11 ü 
12 ü 
13 ü 
14 ü 
15 ü 
16 ü 
17 ü 
18 ü 
19 ü 
23 ü 
33 ü 
43 ü 
45   
46   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Jochen
Anzeige
AW: In Spalte B einen Wert mittels VBA setzen
21.01.2010 19:26:48
Josef
Hallo Jochen!
Danke für Deine Antwort. Werde es gleich morgen in der Früh probieren.
Josef

353 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 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
1
8
4
7
4
4
2
2
1
25
4
2
1
2
5
33
9
5
1
4
3
4
2
1
3