gibt es in excel ne möglickeit in mehreren geschlossenen(oder auch alle in excel geöffnet) xls-dateien text zu erstezen?
gruß elvis
gruß elvis
Private Sub cmdtest_Click()
Dim neuertext As String
neuertext = txttest.Text
With Workbooks
.Open ("D:\test2\Versuch.xls")
With Worksheets("tabelle1") 'Name des Arbeitsblatts
.Cells(1, 1).Value = neuertext
'A1 = Zelle die du willst, wenn der Text übermehere Zellen gelegt ist gib unter hilfe range ein.
End With
End With
End Sub
teddy1818@hotmail.com
bis dann
thanx
hier eine Möglichkeit, die im 1. Blatt jeder Arbeitsmappe den Text aus Zelle A1 (der Mappe mit Code) durch den Text aus Zelle B1 (ebenfalls aus der Mappe mit Code) ersetzt.
LookAt:=xlWhole bedeutet, dass der Text nur ersetzt wird, wenn er in einer eigenen Zelle steht (also nicht Teil eines Strings ist). MatchCase:=True bedeutet, dass zwischen Groß- und Kleinschreibung unterschieden wird. Sollen auch innerhalb längerer Textstrings die Zeichen aus A1 ersetzt werden, dann LookAt:=xlPart verwenden. Ggf. wenn Groß-/Kleinschreibung nicht beachtet werden soll MatchCase:=False setzen.
Nach dem Aufruf der Prozedur Ersetzen() wird ein Dialog angezeigt, in dem Du den Ordner mit den zu bearbeitenden Dateien auswählen kannst. Alle Codes in ein oder mehrere Standard-Module einfügen.
Viel Erfolg,
Charlie