Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen und Ersetzen in Makros durchführen
zurück: PDF aus Excel drucken weiter: Inhalt einer Target Adresse verändern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
darkdoerky
Fachinformatiker


Verfasst am:
29. Jul 2010, 13:41
Rufname:

Suchen und Ersetzen in Makros durchführen - Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Hallo zusammen,

ich stehe gerade vor einer Herausforderung, die sich mit dem Thema Suchen und Ersetzen im Makro befaßt. Das Szenario sieht folgender Maßen aus:

Ich habe mehrere Makros mit unterschiedlichen Abläufen. In einer davon wird in einer vorhandenen Exceldatei eine Spalte wöchentlich hinzugefügt. Jetzt möchte ich, dass nachdem die Spalte hinzugefügt wurde, der Zellenbezug als Beispiel "AB11" durch "AC11" in den unterschiedlichen Makros ersetzt wird.

Code:

Sub next_kw()

Dim VBPrj As Variant
Dim VBCom As Variant
Set VBPrj = Application.VBE.VBProjects("test")
Set VBCom = VBPrj.VBComponents("kw_edit").CodeModule


End Sub


Wie könnte ich jetzt mit dem Suchen und Ersetzen im Makro vorgehen?


Grüße
DarkDoerky
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 14:08
Rufname: Phelan


AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Hallo Darky,

du solltest das so programmieren dass die Bereiche ermittelt werden ohne
Eintrag fester Bezüge.

Code durch Code manipulieren >> nur wenns anders nicht geht.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
darkdoerky
Fachinformatiker


Verfasst am:
29. Jul 2010, 14:11
Rufname:

AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

und wie mach ich das dann, wenn es nicht anders geht...
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 14:25
Rufname: Phelan

AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Zitat:
und wie mach ich das dann, wenn es nicht anders geht...

Code:
Sub ph()
    With Tabelle1
        MsgBox .Cells(11, .Columns.Count).End(xlToLeft)
    End With
End Sub


Warum sollte es anders nicht gehen?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
darkdoerky
Fachinformatiker


Verfasst am:
29. Jul 2010, 14:45
Rufname:

Re: AW: Suchen und Ersetzen in Makros durchführen - Re: AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Glücksritter76 - 29. Jul 2010, 14:25 hat folgendes geschrieben:
Code:
Sub ph()
    With Tabelle1
        MsgBox .Cells(11, .Columns.Count).End(xlToLeft)
    End With
End Sub


Warum sollte es anders nicht gehen?


Oh nee Smile
Ich hab in die völlig falsche Richtung gedacht. Genau danach den Weg wollte ich die ganze Zeit schon gehen, jedoch wußte ich bisher noch nicht wie...

tausend Dank Smile)
darkdoerky
Fachinformatiker


Verfasst am:
29. Jul 2010, 16:12
Rufname:

AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

eine Frage hätte ich noch

kann mir jemand sagen, wie ich, wenn ich die letzte Zelle einer Zeile gefunden habe, dann die ganze Spalte kopieren kann, um sie daneben einzufügen

Ich schaff es zwar die letzte Zelle dann zu kopieren bzw. zu makieren jedoch nicht die ganze Spalte
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 16:34
Rufname: Phelan

AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Versuchs mal hiermit:

Code:
Sub ph()
    With Tabelle1.UsedRange
        With .Columns(.Columns.Count)
            .Copy .Offset(, 1).Cells(1)
        End With
    End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
darkdoerky
Fachinformatiker


Verfasst am:
30. Jul 2010, 14:07
Rufname:


AW: Suchen und Ersetzen in Makros durchführen - AW: Suchen und Ersetzen in Makros durchführen

Nach oben
       Version: Office 2003

Dabei passiert leider gar nichts
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: "Ersetzen" mehrfach verschachteln 2 Schirschi 2211 21. Nov 2005, 20:24
Gast "Ersetzen" mehrfach verschachteln
Keine neuen Beiträge Excel Formeln: Nächster Wert vom Resultat suchen und ausgeben 10 hbborer 916 13. Okt 2005, 16:35
rainberg Nächster Wert vom Resultat suchen und ausgeben
Keine neuen Beiträge Excel Formeln: Bestimmtes Wort suchen 2 DZM_Huth 912 11. Okt 2005, 10:10
DZM_Huth Bestimmtes Wort suchen
Keine neuen Beiträge Excel Formeln: Namen suchen 1 Wilfried 606 29. Aug 2005, 12:42
fl618 Namen suchen
Keine neuen Beiträge Excel Formeln: doppelte daten suchen 2 chrispx 1428 26. Aug 2005, 09:27
chrispx doppelte daten suchen
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Zahl mit Zahl ersetzen und mit der Formel Multiplizieren??? 7 Iggy 912 14. Apr 2005, 21:53
ae Zahl mit Zahl ersetzen und mit der Formel Multiplizieren???
Keine neuen Beiträge Excel Formeln: Wieso funktioniert "suchen und ersetzten" nur bedi 1 landau666 490 08. Apr 2005, 01:05
landau666 Wieso funktioniert "suchen und ersetzten" nur bedi
Keine neuen Beiträge Excel Formeln: Zahl durch Wort ersetzen. 1 Carrear 3152 23. Feb 2005, 15:46
ae Zahl durch Wort ersetzen.
Keine neuen Beiträge Excel Formeln: Wert in einer Matrix suchen und den Nachbarwert zurückgeben 1 michl 3098 08. Feb 2005, 12:06
steve1da Wert in einer Matrix suchen und den Nachbarwert zurückgeben
Keine neuen Beiträge Excel Formeln: Wert suchen 2 Foxy 583 29. Jan 2005, 18:04
Gast Wert suchen
Keine neuen Beiträge Excel Formeln: Einzelne Wörter löschen (ersetzen/formel) 2 Michi_wien 4587 29. Jan 2005, 12:33
Gast Einzelne Wörter löschen (ersetzen/formel)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen