Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon enibas74 vom 19.09.2019, 15:41 Options
in Formel suchen und ersetzten
Hallo,
folgendes Makro starte ich über einen Button in einer UserForm. Ziel ist es, dass im Tabellenblatt "Tabelle1" die im Bereich B19 bis F30 alle Formeln die sich mit Bezug auf Tabellenblatt 2007 (gleiche Arbeitsmappe) befinden, durch Tabellenblatt 2008 ersetzt werden. Wenn ich das Makro starte funktioniert es am Anfang gut, aber dann wird ein Fenster aufgemacht und ich soll irgendeine Datei auswählen wo er auch noch Werte aktualisieren möchte. Aber das will ich doch garnicht. Er scheint die Schleife nicht zu beenden.
HILFE, bitte
Range("B19:F30").Select
raus = "'2007'" 'zu ersetzender String
rein = "'2008'" 'einzufügender String
For Each cell In Selection
If cell.HasFormula = True Then
cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, raus, rein)
End If
Next
End Sub
Vielen Dank.schon mal für Eure Hilfe
Sabine
folgendes Makro starte ich über einen Button in einer UserForm. Ziel ist es, dass im Tabellenblatt "Tabelle1" die im Bereich B19 bis F30 alle Formeln die sich mit Bezug auf Tabellenblatt 2007 (gleiche Arbeitsmappe) befinden, durch Tabellenblatt 2008 ersetzt werden. Wenn ich das Makro starte funktioniert es am Anfang gut, aber dann wird ein Fenster aufgemacht und ich soll irgendeine Datei auswählen wo er auch noch Werte aktualisieren möchte. Aber das will ich doch garnicht. Er scheint die Schleife nicht zu beenden.
HILFE, bitte
Range("B19:F30").Select
raus = "'2007'" 'zu ersetzender String
rein = "'2008'" 'einzufügender String
For Each cell In Selection
If cell.HasFormula = True Then
cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, raus, rein)
End If
Next
End Sub
Vielen Dank.schon mal für Eure Hilfe
Sabine
Antwort 1 von rainberg vom 19.09.2019, 15:50 Options
Hallo Sabine,
warum ein Makro?
Die Menüfunktion Suchen/Ersetzen tut's doch auch, oder gibt's einen besonderen Grund für die Komplizierung?
Gruß
Rainer
warum ein Makro?
Die Menüfunktion Suchen/Ersetzen tut's doch auch, oder gibt's einen besonderen Grund für die Komplizierung?
Gruß
Rainer
Antwort 2 von Pausenfueller vom 19.09.2019, 16:11 Options
Hallo Sabine,
da es sich offensichtlich um Änderungen an Formeln handelt folgende Ergänzung:
Schalte die Tabellenblattansicht mit STRG+# um. Jetzt werden dir alle Formeln des Blattes angezeigt und die kannst du dann über Suchen/Ersetzten auf einen Rutsch bearbeiten.
Zurück schaltest du mit dem gleichen Befehl.
Gruß
Pausenfüller
da es sich offensichtlich um Änderungen an Formeln handelt folgende Ergänzung:
Schalte die Tabellenblattansicht mit STRG+# um. Jetzt werden dir alle Formeln des Blattes angezeigt und die kannst du dann über Suchen/Ersetzten auf einen Rutsch bearbeiten.
Zurück schaltest du mit dem gleichen Befehl.
Gruß
Pausenfüller
Antwort 3 von enibas74 vom 19.09.2019, 19:38 Options
Hallo,
Ich müsste dies über ein Makro laufen lassen, weil ich die Tabelle für einen ungeübten Nutzer erstellt habe und es geht um Abrechnungen. D.h. Jetzt und bis zum Januar werden die Abrechnungen ausgedruckt für 2007 und danach halt für 2008. Es sind in der Arbeitsmappe Blätter einmal für 2007 und ab Januar auch für 2008 erstellt. Das Blatt über die die Abrechnung ausgedruckt wird, bleibt aber das gleiche. Die zu ändernden Formeln sind also SVERWEISE, die sich dann halt auf Blatt 2007 und später 2008 beziehen. Durch Eingabe in TextBox wollte ich quasi den "Endnutzer" die "Umschaltung" ermöglichen.
Verständlich?
Wäre schön, wenn ich für die Umsetzung nochmal Eure Hilfe bekommen könnte.
Danke
Sabine
Ich müsste dies über ein Makro laufen lassen, weil ich die Tabelle für einen ungeübten Nutzer erstellt habe und es geht um Abrechnungen. D.h. Jetzt und bis zum Januar werden die Abrechnungen ausgedruckt für 2007 und danach halt für 2008. Es sind in der Arbeitsmappe Blätter einmal für 2007 und ab Januar auch für 2008 erstellt. Das Blatt über die die Abrechnung ausgedruckt wird, bleibt aber das gleiche. Die zu ändernden Formeln sind also SVERWEISE, die sich dann halt auf Blatt 2007 und später 2008 beziehen. Durch Eingabe in TextBox wollte ich quasi den "Endnutzer" die "Umschaltung" ermöglichen.
Verständlich?
Wäre schön, wenn ich für die Umsetzung nochmal Eure Hilfe bekommen könnte.
Danke
Sabine
Ähnliche Themen
Wenn-Formel
JoeKe 25.10.2006 - 15888 Hits - 3 Antworten
Explorer ersetzten
blubeliblum 09.08.2007 - 38 Hits - 2 Antworten
sverweis andersrum
Flo76 17.08.2007 - 40 Hits - 7 Antworten
Formel unsichtbar machen
PHONKY 22.02.2008 - 118 Hits - 9 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
