Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

520to524

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

text auslesen-ändern-einfügen...

Forumthread: text auslesen-ändern-einfügen...
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Excel Dialoge
Top 100 Forumthreads

25.11.2004 13:01:19

Stefan

Hallo zusammen,
ich habe einen Text, der auf 10 Blättern jeweils in Zelle A2 der gleiche ist. Dieser soll immer manuell aktualisiert werden.
Ich würde dies gern über ein Makro lösen. Irgendwie bestehenden Text auslesen, dann ändern, dann wieder einfügen.
Wie kann ich soetwas den realisieren?
Gruß
Stefan

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: text auslesen-ändern-einfügen...

xule
AW: text auslesen-ändern-einfügen...

Stefan
sorry

xule
AW: sorry

Stefan
AW: sorry

Xule
AW: sorry

Stefan

AW: text auslesen-ändern-einfügen...

xule

Hallo
habs nicht ganz verstanden.
So?


Sub TextÄndern()
Wunsch = 10 ' ändern
MMaxActiveWorkbook.Sheets.Count
Leseaus = 1 'Blatt welches gelesen wird
If Wunsch > MMax Then
MsgBox "Letztes Blatt Ist Nr." & MMax
Wunsch = MMax
TText = InputBox("Bitte Text ändern", Info, Sheets(Leseaus).[A2])
For i = 1 To Wunsch
Sheets(i).[A2].Value = TText
Next
End Sub

Gruß UD

AW: text auslesen-ändern-einfügen...

Stefan

Hallo UD,
bei mir läuft das Makro nicht. Erst hat er EndIf erforderlich angezeigt.
Ich habe dann ein EndIf vor das "For i=.." eingesetzt.
Nun bekomme ich immer "Laufzeitfehler 424. Objekt erforderlich"?
Gruß
Stefan

sorry

xule

Hallo nochmal
So gehts:


Sub TextÄndern()
Wunsch = 10 ' ändern
MMax = ActiveWorkbook.Sheets.Count
Leseaus = 1 'Blatt welches gelesen wird
If Wunsch > MMax Then
MsgBox "Letztes Blatt Ist Nr." & MMax
Wunsch = MMax
End If
TText = InputBox("Bitte Text ändern", Info, Sheets(Leseaus).[A2])
For i = 1 To Wunsch
Sheets(i).[A2].Value = TText
Next
End Sub

AW: sorry

Stefan

Hallo zurück,
so weit so gut, aber er sollte mir den vorhandenen Text in dieser Messagebox schon anbieten, damit ich diesen dann abändern kann.
Gruß
Stefan

AW: sorry

Xule

Macht das Makro doch
Aus Tabelle 1 (Variable: Leseaus) aus Zelle A2
Siehe Beispieldatei https://www.herber.de/bbs/user/13932.xls

AW: sorry

Stefan

Stimmt,
habs gerade in einem neuen Blatt versucht... da funzts.
In meiner vorhandenen Mappe gehts leider nix. Ich habe schon versucht alle in diesem Bereich verbundenen Zellen zu lösen und alle gleich zu formatieren. Hat leider auch nix genützt.