Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
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
Inhaltsverzeichnis

Bitte um Hilfe von Rudi Maintaire 2.0

Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 08:57:53
Rudi
Servus,
Rudi Maintaire hatte mir mal mit folgendem Makro geholfen.
Dabei bräuchte ich mal wieder Hilfe, da ich beim weiter bearbeiten meiner Tabelle nun auf ein Problem damit gestoßen bin.
Vlt könnte mir Rudi Maintaire dabei nochmals helfen, wenn jemand anders weiter weiß nehmen ich natürlich auch von Ihm gerne Hilfe an.
Sub Pläne_markieren()
Dim rngMatch As Range, rngC As Range, rngA As Range, strMatch
Dim lngCol As Long, i As Integer
Application.ScreenUpdating = False
With Tabelle2
Set rngMatch = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each rngA In Tabelle1.UsedRange.Cells
rngA.Font.Color = 0
For Each rngC In rngMatch
lngCol = rngC.Font.Color
For i = 1 To Len(rngA) - Len(rngC) + 1
strMatch = Mid(rngA, i, Len(rngC))
Debug.Print strMatch
If strMatch = rngC Then
With rngA.Characters(i, Len(rngC)).Font
.Color = lngCol
.Bold = True
.Italic = True
End With
End If
Next i
Next rngC
Next rngA
End Sub

Kurz zum Makro, es formatiert alle gefundenen Texte aus Tabelle2 in Tabelle1.
Mein Problem ist nun das es auch alle anderen Texte in Tabelle1 automatisch auf schwarz setzt.
Da ich diese aber mit einem anderen Makro vorher bereits bearbeiten lasse, wäre es notwendig das dieses Makro die restlichen Text bei Ihrer formatierung belässt.
Danke schon im voraus für eure Hilfe!
mfg Blue Bird

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

Betreff
Datum
Anwender
Anzeige
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 09:52:05
Rudi
Hallo,
und wer soll jetzt wissen, bei welchem Bereich in Blatt 1 der Text nicht formatiert werden soll?
For Each rngA In Tabelle1.UsedRange.Cells
Durch diese Codezeile wirkt sich das Makro auf den kompletten benutzten Bereich in Blatt 1 aus.
Ist der Bereich in Blatt 1, der nicht formatiert werden soll statisch oder dynamisch? Und wenn er dynamisch ist, anhand welcher Kriterien lässt er sich ermitteln?
Gruß Werner
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 10:02:24
Rudi
Servus Werner,
der Bereich bezieht sich auf die ganze Tabelle1 und ist immer wieder anders.
mfg Blue Bird
Anzeige
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 10:18:40
Rudi
Hallo,
du solltest Fragen schon beantworten. Wie soll mit deinen Angaben jemand einem Makro jetzt sagen: Diese Zelle formatieren, diese aber nicht?
Vielleicht ist dir ja schon geholfen, wenn du die Reihenfolge der Makros änderst. Erst Rudis Makro laufen lassen, alle Texte schwarz und dann erst das andere Makro, das den Zellinhalt anders formatiert.
Kleiner Hinweis noch: Du hast noch einen Beitrag offen bei dem eine Rückmeldung deinerseits aussteht.
Gruß Werner
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 10:26:11
Rudi
Servus Werner,
das Makro weiß doch schon welche Formetiert werden sollen und welche nicht,
Da er in Tabelle1 ja nur die gefundenen Texte aus Tabelle2 formatiert.
Alles andere soll es aber nicht auf schwarz setzen sondern einfach so belassen wie ist.
Irgendwo her muss doch das Makro wissen das es die restlichen Texte auf schwarz setzen soll, gibt es daher müsste es doch auch eine Möglichkeit geben dem Makro zu sagen diese Texte so belassen?
Will nicht klugscheißen aber so könnte ich mir das vorstellen, wüsste nur leider nicht wie.
mfg Blue Bird.
PS. den anderen Beitrag hatte ich ganz vergessen.
Anzeige
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 10:33:00
Rudi
Hallo,
lass
rngA.Font.Color = 0

weg.
Gruß
Rudi
AW: Bitte um Hilfe von Rudi Maintaire 2.0
05.12.2016 10:44:14
Rudi
Servus Rudi,
danke dir vielmals, nun passt es genau so wie gewünscht.
mfg Blue Bird

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige