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

Zeichen finden und in neue Zeile verschieben

Forumthread: Zeichen finden und in neue Zeile verschieben

Zeichen finden und in neue Zeile verschieben
26.08.2016 08:44:20
Blue
Servus,
ich möchte über eine Bedingte Formatierung Zellen färben lassen.
Nur leider habe ich das Problem das ich in einer Zelle mehrere Einträge habe (mit Leerzeichen getrennt).
Und somit die Bedingte Formatierung nicht funktioniert, hätte jemand eine Lösung für mich.
Bzw. ich könnte mir ein Makro vorstellen, welches Leerzeichen findet eine neue Zeile einfügt und dort dann den Text hin verschiebt.
Das ganze wäre für die komplette Tabelle1 ab Spalte B auszuführen.
danke schon einmal für eure Mühen, ist echt ein Spitzen Forum hier!!!
mfg Blue Bird
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 09:17:43
Bernd
Servus,
was soll denn gesucht bzw. verglichen werden?
Ab Excel 2007 lässt sich eine bedingte Formatierung auch per Formel ermitteln.
z.B.
Zelle B1 = xyz (durch Suchparameter ersetzen)
Zelle B2 soll sich gelb färben, sobald der Suchparameter enthalten ist
=> bedingte Formatierung mit Formel: =WENN(SUCHEN(B1;B2;1)>0;1;0)
Grüße
Anzeige
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 09:31:56
Blue
Servus,
ich habe bereits eine Formel, welche über die Komplette Tabelle1 läuft und diese Formel sucht alle Einträge aus Tabelle2 Spalte A in Tabelle1 und färbt diese auch.
Nur leider habe ich in Tabelle1 manchmal Zellen in den 2 Einträge stehen und somit funktioniert meine Formel nicht mehr.
https://www.herber.de/bbs/user/107844.xlsm
mfg Blue Bird
Anzeige
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 12:51:26
Blue
Servus Bernd,
hast du eine Lösung für mein Problem?
mfg Blue Bird
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 10:03:57
baschti007
Dafür gibt es eine Funktion
Gruß Basti

Sub ff()
MsgBox GetDateFromWeek(26 + 1, vbTuesday) ' Im Jahr 2016 muss zu der Kalenderwoche noch eine  _
Woche hinzugefügt werden da die KW1 nicht ab dem 1.1.2016 anfängt sondern 4.1.2016
End Sub
Public Function GetDateFromWeek(ByVal nWeek As Integer, _
Optional ByVal nDayOfWeek As VBA.VbDayOfWeek = vbMonday, _
Optional ByVal nYear As Integer = -1) As Date
Dim nCurWeek As Integer
Dim vStart As Variant
Dim vMonday As Variant
Dim vSunday As Variant
Dim nDay As Integer
' Kein Jahr angeben? Dann aktuelles Jahr verwenden!
If nYear = -1 Then nYear = Year(Now)
' aktuelle Woche im Jahr nYear ermitteln
vStart = DateSerial(nYear, Month(Now), Day(Now))
nCurWeek = Val(Format$(vStart, "ww", vbMonday))
' Datum der gewünschten Woche ermitteln
vStart = DateAdd("ww", nWeek - nCurWeek, vStart)
' Wochenanfang ermitteln
nDay = Weekday(vStart, vbMonday)
' Datum des gewünschten Wochentags ermitteln
If nDayOfWeek = vbSunday Then
GetDateFromWeek = DateAdd("d", -nDay + 7, vStart)
Else
GetDateFromWeek = DateAdd("d", -nDay + nDayOfWeek - 1, vStart)
End If
End Function

Anzeige
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 10:08:43
Blue
Servus,
ich komme mit deinem Makro nicht klar.
mfg Blue Bird
AW: Zeichen finden und in neue Zeile verschieben
26.08.2016 10:16:24
baschti007
Ohh Sorry falscher Beitrag =)
Zu deinem Problem, das verstehe ich nicht so ganz welche Zellen Du Teilen willst
Gruß Basti
AW: Zeichen finden und in neue Zeile verschieben
29.08.2016 13:35:19
Blue
Hat sich erledigt, habe es über einen anderen Weg mit einem Makro lösen können.
mfg Blue Bird
Anzeige
;

Forumthreads zu verwandten Themen

Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Zeilenumbruch in einer Textbox
Armin

Hallo,
ich bin auf der Suche nach einer Möglichkeit, um in einer Textbox mehrzeiligen TExt zu erfassen. Dabei sollte jedoch ein die Taste "Enter" eine neue Zeile erzeugen.
Leider springt bei Enter der Focus auf das nächste Steuerelement. Derzeit schaffe ich es nur mit Strg + Enter einen...
28.03.2009 10:26:31
Thread-ID: 1064824
6 Beiträge
Zeilenumbruch in textbox
ing.grohn

Hallo Forum,
welches Zeichen muß ich für den Umbruch in der Textbox abfragen?
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Albrecht Grohn
15.10.2009 17:53:51
Thread-ID: 1109905
9 Beiträge
TextBox mit Index füllen via VBA
chrissey

Hallo Leut, guten Morgen,
habe folgendes Problem:
habe in einer UserForm eine TextBox (TextBox1 ) und möchte diese jetz über
einen Index Verweis kombiniert mit einer Vergleichen Funktion in einem Sub
(ComboBox1_initialize) füllen. Die Formel sieht folgendermaßen aus:
INDEX(...
03.11.2009 09:57:58
Thread-ID: 1114009
5 Beiträge
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
Anzeige
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
Zeilenumbruch in Beschriftungsfeld
Uta

Hallo zusammen,
in einem gestapalten Säulendiagramm verwende ich eine Beschriftungsspalte zur Beschriftung der Säulen. Darin soll die Summe der Teilstapel stehen. Das geht auch so weit. Nun sollen aber noch 2 weitere Werte in diesem Beschriftungsfeld integriert werden.
Wie kann ich in m...
16.05.2013 12:16:06
Thread-ID: 1313372
4 Beiträge
VBA Zelle in Textbox übertragen
Charly

Hallo Zusammen!
Franz hat mir bereits teilweise geholfen. Danke dafür. Ich hatte folgendes Problem:
Ich wollte eine Textbox in einer Userform dazu bringen, dass sie mir beim drauf klicken jeweils die nächste Zeile einer Spalte als Text wiedergibt. Sprich: Erster Klick = Text Zelle B1, z...
21.08.2014 13:09:22
Thread-ID: 1377574
2 Beiträge
Mehrspaltig in Textbox und Enter für neue Zeile
Vulferin

Hallo Zusammen
Ich habe ene Textbox
Wenn ich einen Text reinkopieren kann ich diesen durch neue Zeilen Gliedern z.B
1. Lila Bogen
2. Roter Bogen.
3 Gelber Bogen
Wenn ich das aber alles per Handschreibe geht das nur so
1. Lila Bogen 2. Roter Bogen 3. Gelber Bogen
...
21.09.2014 07:10:31
Thread-ID: 1382708
2 Beiträge
Zeilenumbrüche aus Zelle in TextBox?
Lisa

Hallo zusammen,
ich habe meiner TextBox1 beigebracht, Mehrspaltig auch in die Tabellenzellen zu schreiben.
Private Sub CommandButton1_Click() With Sheets(11) .Unprotect .Range("G13:O15") = Replace(TextBox1.Text, vbCr, "") .Protect End With End Sub Wie aber gelingt es mir den Text aus...
06.05.2015 11:52:26
Thread-ID: 1424892
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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