37414
05.11.2019, aktualisiert am 08.11.2019
2394
19
0
VBA-Makro - ersetzen eines Textes durch Kleinbuchstaben
Hallo,
es geht nochmal um die gleichen Makros, wie im bereits gelösten Thread.
Ich habe folgende 2 VBA-Makros erstellt:
1) Der Text "Ihr Kind / Ihre Kinder" wird ersetzt durch "Ihr Kind":
2) Der Text "Ihr Kind / Ihre Kinder" wird ersetzt durch "ihr Kind" --> also mit einem kleinen "i":
Das Makro unter Punkt 1 funktioniert einwandfrei.
Das Makro unter Punkt 2 jedoch liefert das gleiche Ergebnis, wie das Makro in Punkt 1... nämlich "Ihr Kind" --> mit großem "I".
Habt Ihr eine Lösung dafür?
Danke und Gruß,
imebro
es geht nochmal um die gleichen Makros, wie im bereits gelösten Thread.
Ich habe folgende 2 VBA-Makros erstellt:
1) Der Text "Ihr Kind / Ihre Kinder" wird ersetzt durch "Ihr Kind":
Sub Kid1()
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Ihr Kind / Ihre Kinder"
.Replacement.Text = "Ihr Kind"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
2) Der Text "Ihr Kind / Ihre Kinder" wird ersetzt durch "ihr Kind" --> also mit einem kleinen "i":
Sub Kid3()
'
' ihr Kind Makro (es heißt "Kid3", da der Begriff "Kind" in VBA bereits vergeben ist)
' Der Eintrag "Ihr Kind / Ihre Kinder" wird ersetzt durch "ihr Kind"
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Ihr Kind / Ihre Kinder"
.Replacement.Text = "ihr Kind"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Das Makro unter Punkt 1 funktioniert einwandfrei.
Das Makro unter Punkt 2 jedoch liefert das gleiche Ergebnis, wie das Makro in Punkt 1... nämlich "Ihr Kind" --> mit großem "I".
Habt Ihr eine Lösung dafür?
Danke und Gruß,
imebro
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 511802
Url: https://administrator.de/contentid/511802
Ausgedruckt am: 19.11.2024 um 09:11 Uhr
19 Kommentare
Neuester Kommentar
Automatische Großschreibung am Satzanfang in den Einstellungen deaktivieren. :-P
Zitat von @37414:
Ansonsten würde ich mich über einen Tipp freuen, was genau ich nun im Makro ändern muss.
Den hat dir Kraemer eigentlich schon ausführlich gegeben. Englisch 6 ?Ansonsten würde ich mich über einen Tipp freuen, was genau ich nun im Makro ändern muss.
Sub Kid3()
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute FindText:="Ihr Kind / Ihre Kinder", ReplaceWith:="ihr Kind", Replace:=wdReplaceAll, MatchCase:=True, MatchWholeWord:=False, MatchWildcards:=False, MatchSoundsLike:=False, MatchAllWordForms:=False, Forward:=True, Wrap:=wdFindContinue
End With
End Sub
Btw. wieso kopiert man den fast exakt selben Code zwei oder mehrmal?? Mit ner Function reduziert sich das auf Suchtext und Replacement als übergebene Parameter.
Zitat von @37414:
Habe einfach das Makro per "Aufzeichnen" erstellt und dann tatsächlich im "Ersetzen-Feld" die Möglichkeit gefunden "Groß- u. Kleinschreibung beachten". Das habe ich angehakt und nachdem ich das Makro komplett aufgezeichnet hatte, funktionierte es so, wie ich es will.
Tja lese den Code einfach mal mit der Brille, dort ist genau die Option hinterlegt!Habe einfach das Makro per "Aufzeichnen" erstellt und dann tatsächlich im "Ersetzen-Feld" die Möglichkeit gefunden "Groß- u. Kleinschreibung beachten". Das habe ich angehakt und nachdem ich das Makro komplett aufgezeichnet hatte, funktionierte es so, wie ich es will.
ABER...
Rein vom VBA-Code her unterscheidet es sich überhaupt nicht vom vorherigen Makro (siehe oben den Code unter mein Punkt 2).
Rein vom VBA-Code her unterscheidet es sich überhaupt nicht vom vorherigen Makro (siehe oben den Code unter mein Punkt 2).
Doch musst nur mal genau hinsehen ...
MatchCase:=True
Offenbar wird diese Einstellung (Groß-/Kleinschreibung) beim ersetzen des Textes nicht im sichtbaren Code übernommen...
Nö.Und... wo hatte "Kraemer" mir denn den Tipp ausführlich gegeben? Er hat doch nur geschrieben, dass ich mir die Eigenschaften des Replacement-Objektes anschauen soll.
Und genau das hast du offensichtlich nicht gemacht.Aber genau deshalb frage ich ja auch hier im Forum nach Lösungen...
VBA lernen wäre auch eine Möglichkeit, aber Foren mit dem Grundlagenzeuch zu überschwemmen ist ja wieder leichter als das Handbuch zur Rate zu ziehen ... Koppschüttel. Aber du scheinst ja stattdessen lieber die Muskeln zu stählen Wenn's dann noch für ein gelöst reicht sind alle zufrieden.
Ciao.
Gäbe es auch die Möglichkeit einer Auswahl - z.B. mit einer Art Auswahlfenster, über dass ich alle 8 Möglichkeiten auf einmal abfragen kann?
Sicherhttps://www.tutorialspoint.com/vba/vba_userforms.htm
Bei Bedarf, PM dann kann ich dir sowas gerne gegen nen Bier coden. => Preview
Mit dem "gelöst" möchte ich noch warten, denn ich habe noch eine weitere Frage zum Thema
Neue Frage neuer Thread,Zitat von @37414:
Aber was bitte heißt "kann ich dir sowas gerne gegen nen Bier coden"?
Meinst Du, dass ich für Deine Hilfe etwas zahlen soll?
Naja denkst du das dir hier jemand deine Wünsche und Programme umsonst schreibt? Unsere Zeit ist ja auch nicht umsonst, und. n' Bier ist wirklich nicht zu viel verlangt.Aber was bitte heißt "kann ich dir sowas gerne gegen nen Bier coden"?
Meinst Du, dass ich für Deine Hilfe etwas zahlen soll?
Wenn du was umsonst willst, setz dich mit nem Schildchen in die Fußgängerzone.
Ich denke nicht, dass ich hier einen neuen Thread eröffnen sollte, denn es geht ja um genau das gleiche Problem, bzw. Makro, wie vorher auch.
Na dann viel Spaß beim warten auf den Nimmerleinstag, du hast deine Chance, wenn du sie nicht nutzen willst, gerne kein Problem dann bin ich hier raus. Die Ursprüngliche Frage wurde geklärt, also gehört der Thread auch gelöst. Endlose Mischmaschfragen Threads sieht hier keiner gerne und bringen auch Außenstehenden nichts wenn der Bezug nicht mehr stimmt.Bis dann.
Na dann, wer nicht will hat schon ist ja deine Entscheidung du wolltest Hilfe nicht wir.
Du lädst dich bestimmt auch selbst immer überall umsonst ein, eine "nette Geste" für jemanden der detaillierte Hilfe anbietet ist nicht verboten und hier wird ja niemand gezwungen war ja nur ein Angebot, aber du gehörst wohl zur immer und überall kostenlos Fraktion. Und n' Euro für n' Bier als Aufwandsentschädigung ist ja wohl echt kein Beinbruch für die Leistung die du im Gegenzug erhältst und an Zeit eingespart hättest ...
Du lädst dich bestimmt auch selbst immer überall umsonst ein, eine "nette Geste" für jemanden der detaillierte Hilfe anbietet ist nicht verboten und hier wird ja niemand gezwungen war ja nur ein Angebot, aber du gehörst wohl zur immer und überall kostenlos Fraktion. Und n' Euro für n' Bier als Aufwandsentschädigung ist ja wohl echt kein Beinbruch für die Leistung die du im Gegenzug erhältst und an Zeit eingespart hättest ...
Zitat von @37414:
Besonders befremdlich finde ich es allerdings, wenn dieser User auch noch zur Nutzergruppe "Administratoren" gehört, wie Du selbst ja auch!!
Weißt du, was ich befremdlich finde? Das Leute, die nicht einmal schnallen, das die Nutzergruppe Administratoren nichts mit dem Forum hier zu tun hat, sondern mit dem persönlichen Tätigkeitsfeld, meinen hier Leute erziehen zu dürfen. Ganz schlimm wird es dann aber, wenn eben solche Leute auch noch zu faul sind, gegebene Hilfestellungen zu studieren und darüber hinaus sich ihren Job hier für lau erledigen lassen wollen.Besonders befremdlich finde ich es allerdings, wenn dieser User auch noch zur Nutzergruppe "Administratoren" gehört, wie Du selbst ja auch!!
JustMy2Cents
Ach ja, Kaffee und Kippe, dann klappt's auch mit den Kommentaren ,
so, dann melde ich mich hier mal als "richtiger Administrator" (Moderator), der hier etliche Meldungen vorliegen hat.
@37414 (wir duzen uns hier im Forum): Klären wir mal zuerst den Punkt der Nutzergruppen
Die Nutzergruppe kannst du in deinem Profil selbst wählen...bist du z.B. Administrator, Entwickler oder User (z.B.). Das hat nichts mit den Rechten im Forum zu tun, sondern mit deinen Kenntnissen. Wenn du sehen willst, ob der/die-jenige auch zu den Moderatoren gehört - also gewisse Rechte hat-, siehst du das auf der rechten Seite unter diesen Angaben.
Nun zum Rest:
- der User "chickenwing" hat sich teilweise daneben benommen, da hast du Recht. Unten schreibe ich was dazu.
- User "Kraemer" ist eben NICHT auf dem Irrweg, kommt auch jetzt was zu
Dieses Forum ist für User aller Art gedacht, es kann also auch jede Frage gestellt werden. Sehr oft passiert aber genau das, was jetzt auch passiert ist. Jemand stellt eine Frage, bekommt die Antwort und liest sich scheinbar nicht ins Thema ein.
Versteh' mich nicht falsch; Hilfe wird gerne gegeben und freiwillig. Letzteres ist aber genau der Punkt. "Hilfe zur Selbsthilfe" wird hier groß geschrieben. Und wenn "jemand vom Fach" sieht, dass du halt Anfänger bist, wird er dir nicht alles vorkauen. Du hast allerdings ja was getan, was nicht Unbeachtet bleibt...das sehen wir schon ^^. Jedoch sehen wir auch, wenn ein Code ohne Eigeninitiative von den Forenmitgliedern (weiter)entwickelt werden soll und das ist nicht der Stil.
Du bist schon lange Mitglied und weißt das bestimmt (hoffentlich) alles. Es macht aber in diesem Thread den Anschein, dass oben genanntes der Fall ist. Da muss ich den beiden schon Recht geben.
Was mich zu "chickenwing" bringt. Auch für ihn schien es genau so und die Reaktion...naja. Klar, hätte anders ausfallen müssen....so agiert man nicht. Wobei ich das mit dem Bier noch als Scherz aufgefasst habe, aber sei es drum. User ist weg und gut.
Dienstleistungen:
Es stimmt natürlich, dass kein User hier herkommen sollte "ich mach' dir das nur gegen Summe X"...verboten und fertig. Die User (und sehr viele hier sind selbständige Dienstleister) dürfen aber generell Aussagen treffen, wie: "Möchtest du, dass ich dir das Projekt fertig stelle? Dann gerne PM, bin Dienstleister". Hier ist freie Wahl durch den Fragesteller.
Zu guter letzt eine Bitte an dich und gleichzeitig ein guter Rat:
Bitte unterlasse irgendwelche Kommentare zum Thema Steuerhinterziehung. Grund ist nicht der "Schutz" der User, sondern ganz einfach das Aggressionspotenzial, welches du damit weckst. Du hinterlässt einfach den faden Beigeschmack der Bezichtigung und damit (rechtliche Aspekte außen vor) Unbeliebtheit auf ganzer Linie.
Fazit:
Dies ist nicht der erste Thread, in dem etwas falsch läuft und es wird nicht der letzte bleiben. Maßregeln wird hier sicher keiner, sondern einwirken. Und das darfst du den Moderatoren überlassen...wir machen es lange genug. Bei "Kraemer" sehe ich kein Fehlverhalten. Wenn du es möchtest, kannst du mir aber gerne eine PM schreiben und wir reden über das Verhalten im Forum.
Das solls für diesen Thread gewesen sein, der ist nun dicht. Sollten noch Fachfragen bestehen...einfach einen neuen öffnen. Auf zur Kaffeemaschine
so, dann melde ich mich hier mal als "richtiger Administrator" (Moderator), der hier etliche Meldungen vorliegen hat.
@37414 (wir duzen uns hier im Forum): Klären wir mal zuerst den Punkt der Nutzergruppen
Die Nutzergruppe kannst du in deinem Profil selbst wählen...bist du z.B. Administrator, Entwickler oder User (z.B.). Das hat nichts mit den Rechten im Forum zu tun, sondern mit deinen Kenntnissen. Wenn du sehen willst, ob der/die-jenige auch zu den Moderatoren gehört - also gewisse Rechte hat-, siehst du das auf der rechten Seite unter diesen Angaben.
Nun zum Rest:
- der User "chickenwing" hat sich teilweise daneben benommen, da hast du Recht. Unten schreibe ich was dazu.
- User "Kraemer" ist eben NICHT auf dem Irrweg, kommt auch jetzt was zu
Dieses Forum ist für User aller Art gedacht, es kann also auch jede Frage gestellt werden. Sehr oft passiert aber genau das, was jetzt auch passiert ist. Jemand stellt eine Frage, bekommt die Antwort und liest sich scheinbar nicht ins Thema ein.
Versteh' mich nicht falsch; Hilfe wird gerne gegeben und freiwillig. Letzteres ist aber genau der Punkt. "Hilfe zur Selbsthilfe" wird hier groß geschrieben. Und wenn "jemand vom Fach" sieht, dass du halt Anfänger bist, wird er dir nicht alles vorkauen. Du hast allerdings ja was getan, was nicht Unbeachtet bleibt...das sehen wir schon ^^. Jedoch sehen wir auch, wenn ein Code ohne Eigeninitiative von den Forenmitgliedern (weiter)entwickelt werden soll und das ist nicht der Stil.
Du bist schon lange Mitglied und weißt das bestimmt (hoffentlich) alles. Es macht aber in diesem Thread den Anschein, dass oben genanntes der Fall ist. Da muss ich den beiden schon Recht geben.
Was mich zu "chickenwing" bringt. Auch für ihn schien es genau so und die Reaktion...naja. Klar, hätte anders ausfallen müssen....so agiert man nicht. Wobei ich das mit dem Bier noch als Scherz aufgefasst habe, aber sei es drum. User ist weg und gut.
Dienstleistungen:
Es stimmt natürlich, dass kein User hier herkommen sollte "ich mach' dir das nur gegen Summe X"...verboten und fertig. Die User (und sehr viele hier sind selbständige Dienstleister) dürfen aber generell Aussagen treffen, wie: "Möchtest du, dass ich dir das Projekt fertig stelle? Dann gerne PM, bin Dienstleister". Hier ist freie Wahl durch den Fragesteller.
Zu guter letzt eine Bitte an dich und gleichzeitig ein guter Rat:
Bitte unterlasse irgendwelche Kommentare zum Thema Steuerhinterziehung. Grund ist nicht der "Schutz" der User, sondern ganz einfach das Aggressionspotenzial, welches du damit weckst. Du hinterlässt einfach den faden Beigeschmack der Bezichtigung und damit (rechtliche Aspekte außen vor) Unbeliebtheit auf ganzer Linie.
Fazit:
Dies ist nicht der erste Thread, in dem etwas falsch läuft und es wird nicht der letzte bleiben. Maßregeln wird hier sicher keiner, sondern einwirken. Und das darfst du den Moderatoren überlassen...wir machen es lange genug. Bei "Kraemer" sehe ich kein Fehlverhalten. Wenn du es möchtest, kannst du mir aber gerne eine PM schreiben und wir reden über das Verhalten im Forum.
Das solls für diesen Thread gewesen sein, der ist nun dicht. Sollten noch Fachfragen bestehen...einfach einen neuen öffnen. Auf zur Kaffeemaschine