Datum

Titel

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

25.04.2024 21:06:05

Duplikate entfernen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1524to1528

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

Wert suchen und ersetzen

Forumthread: Wert suchen und ersetzen
7 Beiträge zu diesem Forumthread
Anzeige
324 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.11.2016 12:18:20

Gabi

Hallo zusammen,
ich habe ein Problem.
Ich habe auf einem Tabellenblatt eine Übersicht mit ID, Kundennamen usw. (je eine Zeile entspricht einem Kunden). Für jeden Kunden habe ich ein eigenes Tabellenblatt. In den Tabellenblättern befindet sich aktuell aber noch eine allgemeine Vorlage. Diese Vorlage möchte ich individualisieren. VBA muss also prüfen, um welche ID es sich handelt (steht jeweils im Namen des Tabellenblattes), den Namen aus der Kundenübersicht entnehmen und alle "Namen"-Zellen im jeweiligen Tabellenblatt durch den richtigen Kundennamen aus der Übersicht ersetzen.
Kann mir da jemand weiterhelfen?
Liebe Grüße
Gabi

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert suchen und ersetzen

15.11.2016 14:05:31

JoWE
AW: Wert suchen und ersetzen

15.11.2016 14:10:57

UweD
AW: Wert suchen und ersetzen

15.11.2016 17:36:10

Gabi
Der Code von gestern...

15.11.2016 18:09:23

gestern...
AW: Der Code von gestern...

17.11.2016 09:06:56

gestern...
Gerne! Danke für die Rückmeldung, owT

17.11.2016 09:50:34

Case
AW: Wert suchen und ersetzen

15.11.2016 18:09:51

JoWE

AW: Wert suchen und ersetzen

15.11.2016 14:05:31

JoWE

Hallo Gabi,
erhöhe die Chance auf hilfreiche Antworten indem Du eine aussagekräftige Beispieltabelle hochlädst.
Dabei kannst Du die Kundennamen ja evtl. anonymisieren.
Gruß
Jochen

AW: Wert suchen und ersetzen

15.11.2016 14:10:57

UweD

Hallo Gabi
ich weis nicht, wie deine Allgemeine Vorlage aussieht. Hier mal mit 2 Daten plus ID
Über Sverweis liesse sich das aber ohne VBA lösen.

DDD

	A	B	C	D	E
1
2
3
4		ID:	DDD
5
6			Info 1	D1
7
8
9
10			Info 2	D2
11
12
13
14

verwendete Formeln
Zelle	Formel	Bereich	N/A
C4	=TEIL(ZELLE("Dateiname";C4);FINDEN("]";ZELLE("Dateiname";C4))+1;31)
D6,D10	=SVERWEIS($C$4;Übersicht!$A:$C;VERGLEICH(C6;Übersicht!$1:$1;0);0)

Die gewünschte Spalte kommt aus dem Bezeichner davor

Übersicht

	A	B	C
1	ID	Info 1	Info 2
2	AAA	A1	A2
3	CCC	C1	C2
4	DDD	D1	D2
5
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 21.10 einschl. 64 Bit

LG UweD

AW: Wert suchen und ersetzen

15.11.2016 17:36:10

Gabi

Hallo,
vielen dank Uwe für dein Beispiel. Aber würde ich es so machen, müsste ich in jedes Tabellenblatt, um die Formel zu hinterlegen... das ist bei 300 Tabellenblätter nur schwer machbar.
Anbei habe ich eine Beispieldatei hochgeladen, damit ihr euch das besser vorstellen könnt. Das mit dem automatischen Erstellen von Tabellenblättern klappt bereits wunderbar. Jetzt fehlt wie gesagt nur noch das automatische Hinterlegen des jeweiligen Kundennamens in der jeweiligen Zelle "Name" und "Vorname".
https://www.herber.de/bbs/user/109447.xlsm
Vielen Dank!
Liebe Grüße
Gabi

Der Code von gestern...

15.11.2016 18:09:23

gestern...

Hallo Gabi, :-)
... angepasst, wäre dann so: ;-)
Deine Beispieldatei zurück...
Das Tabellenblatt "Vorlage" habe ich ausgeblendet.
Servus
Case

AW: Der Code von gestern...

17.11.2016 09:06:56

gestern...

Hallo Case und Jochen,
vielen lieben Dank euch beiden! Genau das hat mir gefehlt :-)
Liebe Grüße
Gabi

Gerne! Danke für die Rückmeldung, owT

17.11.2016 09:50:34

Case

:-)

AW: Wert suchen und ersetzen

15.11.2016 18:09:51

JoWE

Hallo Gabi,
meinst Du es so?

Sub main()
Dim wksSheet As Worksheet
Dim lngCalc As Long
Dim lngTMP As Long
On Error GoTo Fin
With Application
.ScreenUpdating = False
.AskToUpdateLinks = False
.EnableEvents = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
With Tabelle1
For lngTMP = 3 To IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1). _
End(xlUp).Row)
If Not Evaluate("=ISREF(" & "Kunde_" & .Cells(lngTMP, 1).Value & "!A1)") Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Restbetragsliste_" & _
.Cells(lngTMP, 1).Value
Worksheets("Vorlage").UsedRange.Copy Destination:=Worksheets(Worksheets.Count). _
Range(Worksheets("Vorlage").UsedRange.Address)
                Range("C3") = .Cells(lngTMP, 3)
Range("C4") = .Cells(lngTMP, 2)

End If
Next lngTMP
End With
Fin:
With Application
.ScreenUpdating = True
.AskToUpdateLinks = True
.EnableEvents = True
.Calculation = lngCalc
.DisplayAlerts = True
End With
If Err.Number  0 Then MsgBox "Fehler: Bitte keine 0 als ID eingeben." & _
Err.Number & " " & Err.Description
End Sub

Gruß
Jochen