Datum

Titel

26.09.2025 22:18:24

Liste mit Links - tricky

26.09.2025 18:34:36

Welches Datum gibt mein M-Code aus?

26.09.2025 10:29:46

Wert aus einer Zelle bei jeder Eingabe in neue Zelle

26.09.2025 08:51:00

Teilinhalt einer Zelle vergleichen

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

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

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Zahl suchen, ändern und wieder einsetzen

Forumthread: Zahl suchen, ändern und wieder einsetzen
7 Beiträge zu diesem Forumthread
Anzeige
61 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: Zahl suchen, ändern und wieder einsetzen

08.05.2019 10:51:57

Tina

Hallo Zusammen,
ich suche seit einer Weile nach einer Lösung, bisher erfolglos.
In den Zellen K6 - AW6 stehen Filalnamen und deren Nummern (z.B. in Zelle K6 "1022 Frauenfeld"). Ich muss daraus die Nummer "400022" machen und wieder in die gleiche Zelle schreiben.
Bisher habe ich das so gelöst:
Range("K6").Select
ActiveCell.FormulaR1C1 = "400022"
Wie befürchtet ist aber neulich eine Filiale geschlossen worden. Dadurch musste ich das Makro anpassen. Und das bedeutet das ich es an mehreren Arbeitsplätzen neu importieren und wieder mit nem Button ins Menü verknüpfen muss.
Diese Zeit hätte ich mir im Grunde gerne gespart.
Beispieldatei: https://www.herber.de/bbs/user/129653.xlsx

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 10:55:37

Hajo_Zi
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:08:05

Tina
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:24:23

UweD
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:27:57

Hajo_Zi
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:13:55

Daniel
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:20:44

Tina
AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:24:53

Werner

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 10:55:37

Hajo_Zi

das glaube ich nicht.
Da eine XLSX Datei kein Makro enthält.
Benutze Strg+H

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:08:05

Tina

Lieber Hajo,
Danke für deinne Antwort.
stimmt, die Tabelle enthält kein Makro. Das Makro ist in meiner (und der von den Kollegen) persönlichen Arbeitsmappe hinterlegt und die Tabelle wird, wenn Daten abgefüllt sind, genau so verwendet als xlsx.
Es geht lediglich darum die Bezeichnungen anzupassen. Da es hier um 38 Einträge geht ist suchen und ersetzen keine Alternative.
Diesen Code kopiere verändere ich bisher 38 mal (Nummer und Zelle).
Range("K6").Select
ActiveCell.FormulaR1C1 = "400022"
Danke für weitere Unterstützung

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:24:23

UweD

Hi
leg dir ein Temporäres Blatt nach folgendem Muster an.
TMP

TMP

	A	B	C
1	Alt	Neu
2	1022 Frauenfeld	400022
3	4711 Irgendwo	500100
4	815 Dort	600999
5	1049 Mels	222222
6
7
8

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

Dann dieses Makro laufen lassen.

Sub Umbenennen()
    Dim TB1, TB2, RNG As Range, LR As Integer, i As Integer
    
    Set TB1 = Sheets("Zuteilungsblatt")
    Set TB2 = Sheets("TMP")
   
    Set RNG = TB1.Range("K6:AW6")
    
    LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
    
    For i = 2 To LR
        RNG.Replace What:=TB2.Cells(i, 1), Replacement:=TB2.Cells(i, 2), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Next
    
End Sub

LG UweD

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:27:57

Hajo_Zi

warum select? Warum FormeL?
Range("K6")= "400022"
zu dem weiteren Code kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.
Gruß Hajo

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:13:55

Daniel

Hi
ich würde dafür in die Zellen K5-AW5 die Formel schreiben: ="400"&Teil(K6;2;3)
kopieren und als Wert einfügen.
Gruß Daniel

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:20:44

Tina

Hi Daniel,
das funktioniert.
Ich denke ich kann damit weiter arbeiten. Danke!

AW: Zahl suchen, ändern und wieder einsetzen

08.05.2019 11:24:53

Werner

Hallo Tina,

Public Sub aaa()
Dim i As Long
For i = 11 To 49
If Not IsNumeric(Cells(6, i)) Then
Cells(6, i) = Left(Cells(6, i), 4) - 1000 + 400000
End If
Next i
End Sub

Gruß Werner

;