Der Code prüft zunächst, ob in Textbox1 ein Datum enthalten ist. Wenn nicht, wird die Prozedur verlassen. Übrigens: Das Datum kann auch mit dem Minuszeichen auf dem Numblock eingegeben werden, so muss man nicht immer auf der Tastatur zum Punkt wechseln. Anschließend wird das Datum, das in der Textbox steht, auf Tabelle1 in Spalte A gesucht. Mit VBA bestimmte Zellen suchen, ersetzen | Herbers Excel-Forum. Wurde es nicht gefunden, erscheint die Meldung, ansonsten werden die Inhalte der Textboxen 2 und 3 in die Spalten B und C geschrieben. Das Blatt Tabelle1 muss übrigens nicht aktiv sein. Sub DatumSuchen() Dim rngZelle As Range, datDatum As Date If IsDate() = False Then Exit Sub datDatum = CDate() With Worksheets("Tabelle1") Set rngZelle =. Columns(1)(datDatum, lookat:=xlWhole) If rngZelle Is Nothing Then MsgBox "Nicht gefunden! " Else (, 2) = (, 3) = End If End With End Sub Doppelte Unterstriche durch einen ersetzen Kategorie: Suchen/Ersetzen (Tipp 70) Auf einem Blatt sollen mehrere Unterstriche am Stück auf jeweils einen reduziert werden. Wenn vorher bekannt ist, wie viele Unterstriche enthalten sein können, kann das verwendet werden: Sub Unterstriche() Dim intI As Integer reenUpdating = False '10 = maximale Zahl der Unterstriche For intI = 1 To 10 Range("A1:A65536").
Und es ist ja auch bedeutend "moderner" als die Wettbewerbe … Beste Grüße Günther Ich helfe gerne im Rahmen der Hilfe zur Selbsthilfe; Komplettlösungen werden noch nicht einmal vom Sozialamt kostenlos erstellt... Ich hasse unnötige Arbeit, darum weigere ich mich aus prinzipiellen Erwägungen, eine Datei nachzubauen. Also bitte eine Muster-XLS X. (29. 2021, 00:10) GMG-CC schrieb: Danke für die Info. Vielen Dank für deine hilfreiche Stellungnahme, du hast natürlich vollkommen recht, gestern erst rechnete der Pc die ganze Nacht durch bis heute Morgen. Auch mit dem Laptop und mehr RAM war das Ergebnis das gleiche nämlich nix. Excel vba suchen und ersetzen in spalte e. Super Programm! Braucht viel Ressourcen und hängt sich auf bis du nur noch Reset drücken kannst. Die Cpu läuft heiß, Fehler Meldung gabs wie immer keine. Mit ein par Zeilen Javascript hätte das jeder Browser gekonnt. Hinweis auf Angebot Excel-Inside - lang Keine Lösung gefunden? D u kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen. Falls die Suche erfolgreich war, steht die genaue Zelle in unserer Variable. Diese hat bestimmte Eigenschaften wie, oder. Address. Diese möchten wir nun auswerten. Suchen und Ersetzen Makro. Wenn kein Ergebnis gefunden wurde, wird eine entsprechende Meldung ausgegeben. Falls die Suche erfolgreich war, geben wir die Koordinaten der Zelle aus. If Ergebnis Is Nothing Then MsgBox "Leider nichts gefunden! " Else MsgBox "Das aktuelle Datum steht in der Zelle " & dress End If Die Beispiel Excel Datei mit dem sofort einsetzbaren Makro und 111+ andere Makros, die Ihr Leben leichter machen, finden Sie hier. Beeindrucke deinen Chef mit coolen Excel Tricks! Lasse dich von deinen Kollegen nicht abhängen! Spare Zeit und nutze diese für angenehmere Dinge Steigere deine Produktivität und Effizienz Es ist leicht - In meinem Newsletter gebe ich Schritt für Schritt Anleitungen die jeder versteht Bei der Anmeldung zu meinem Newsletter erhälst du das Buch "Excel Tricks die deinen Chef beeindrucken" als Willkommensgeschenk.
Poste doch mal ein Muster. Edit: In dieser Testformel ersetzt Dein Code den Teil anstandslos: Code: und wäre auch in dieser Schreibweise in Ordnung: Code: Grüße EarlFred Hi, die Formel lautet vollständig: Code: und soll nach der Konvertierung lauten: Das mit MIKDATA9 zu MIKDATA15 ist kein Problem. LG Ronald Hallo Ronald, achso, Du willst mehrere Funktionsargumente ändern ("Parameterstring" hat mich auf eine völlig falsche Fährte gelockt). Die werden aber im amerikanisch-denkenden VBA-Umfeld mit Komma getrennt. Code: Grüße Im Prinzip geht es um die Erweiterung der Parameter von 9 auf 15 Argumente. Ich habe es auch eben mit Deinem Vorschlag aus der ersten Post mal versucht. Die Inhalte der Strings sehen gut aus. Nur er findet diesen Suchtstring halt nicht und ersetzt somit auch nichts. Wenn alles Stricke reißen muß muss ich halt alle Zeilen und Spalten der Tabelle durchlaufen, mir die Formel in nen String lesen, dort den Term suchen suchen und ersetzen und die Formel zurück schreiben. Excel vba suchen und ersetzen in spalte in de. Ich erwarte da aber erheblich höhere Laufzeiten.