Nachträgliches automatisiertes Einfügen von Text

[huhu350]

Hallo liebe Forums-Mitglieder !

Ich habe folgendes Problem :

ich möchte in eine Excel Tabelle nachträglich bei allen Adressen der Tabelle einen ergänzenden Text einfügen.

Zum Verständnis meiner Beispiels-Tabelle :

In Feld 2 / Adressreihe 2 steht "Anrede" und in Feld 3 "Firmierung". Jetzt möchte ich bei allen Adressen die nachfolgen - es sind mehrere Hundert - im Feld rechts daneben zu Anrede "Herr" einfügen und zu Firmierung "Kanzlei".

Wie kann ich das automatisiert machen so das ich es nicht jeweils von Hand machen muss ?

Ich bin "Anfänger" - also bitte so erklären das es auch ein Dummy versteht ... :25:

Vielen Dank vorab für Eure Antworten und Hilfestellung ! 

Isabel

[WillWissen]

Hallo Isabel,

mit Formeln ginge es so:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
3	3.	Name	Bernd Hase	Bernd Hase
4		Anrede		Herr
5		Firmierung		Kanzlei
6		Straße	Wallersheimer Weg	Wallersheimer Weg
7		PLZ Ort	56070 Koblenz	56070 Koblenz
8		Telefon	Telefon: 0261-	Telefon: 0261-
9		Telefax	Telefax: 0261-	Telefax: 0261-
10		Mobil
11		E-Mail	aaaaaa@bbbbbb-select.de	aaaaaa@bbbbbb-select.de
12		Homepage
13		Kontakt-Seite
14		Bemerkungen
15
16
17	4.	Name	Martin Oberhase	Martin Oberhase
18		Anrede		Herr
19		Firmierung		Kanzlei
20		Straße	Petrusstr.	Petrusstr.
21		PLZ Ort	54292 Trier	54292 Trier
22		Telefon	Telefon: 0651-	Telefon: 0651-
23		Telefax	Telefax: 0651-	Telefax: 0651-
24		Mobil
25		E-Mail	bbbbbb@oberhase.de	bbbbbb@oberhase.de
26		Homepage
27		Kontakt-Seite
28		Bemerkungen
29		Homepage
30		Kontakt-Seite
31		Bemerkungen

Zelle	Formel
D3	=WENN(B3="Anrede";"Herr";C3)&WENN(B3="Firmierung";"Kanzlei";"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Die Hilfsspalte kopieren und als Werte in deine Adressspalte einfügen, danach die Hilfsspalte löschen.

[Peter]

Hallo,

wenn das eine einmalige Geschichte ist würde ich es so probieren:

Einen Autofilter auf die Spalte B legen und dann im ersten Schritt nach Anrede filtern. In Spalte C trägst du jetzt einfach deine gewünschte Anrede ein und kopierst die soweit nach unten wie in Spalte B der Wert Anrede steht.

Das ganze Prozedere wiederholst du und filterst in Spalte B einfach nach Firmierung.

[MisterBurns]

Hallo Isabell,

ich bin grade verwundert, wieso du jetzt wieder dieses Format für deine Adressdatei verwendest :) Was gefällt dir denn an der von mir erstellten Liste nicht? Denn so hast du ja wieder dieses extrem unpraktische Format, mit dem sich kaum arbeiten lässt.

Aber sei's drum, die Formellösung hast du ja schon von Günter bekommen. Alternativ geht's mit diesem Code:

Sub einfuegen()
Dim Zeile As Long

For Zeile = 1 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(Zeile, "B") = "Anrede" Then
        Cells(Zeile, "C") = "Herr"
    ElseIf Cells(Zeile, "B") = "Firmierung" Then
        Cells(Zeile, "C") = "Kanzlei"
    End If
Next

End Sub

Kopiere diesen Code, so wie er ist. Dann klickst du mit der rechten Maustaste auf den Namen deines Tabellenblatts (zB "Tabelle1") und wählst "Code anzeigen". Im sich öffnenden Fenster kopierst du den Code in den großen weißen Bereich. Nun klickst du irgendwo in dem Code mit der Maus hin und drückst die Taste F5. Das sollte es gewesen sein.

Ich bin davon ausgegangen, dass die Spalte mit "Name", "Anrede" usw. in Spalte B steht und das was auszufüllen ist, in Spalte C. Falls dem nicht so sein sollte, ändere im Code alle Teile "B" und "C" entsprechend ab.

[huhu350]

Berni Du alter Fuchs !  
Wie ich sehe passt Du gut auf !  :100:     

Ich möchte Dich daran erinner das DU es warst der gesagt hat ich soll im Interesse aller Forums-Mitglieder möglichst öffentlich nachfragen ...:19:

Es handelt sich hierbei um eineN neuen Adressdatensatz !  Ich habe den nur für das Forum abgeändert und "angepasst" - wegen dem HEILIGEN DATENSCHUTZ !!!

[huhu350]

Waaaaaaaaaaahnsinn !    

Hat geklappt !!!!!

Jetzt stell ich einen Piccolo-Sekt kalt !   ... mache ich sonst nie

Danke Euch allen ...






P.S. Hab Bernis Variante genommen

[MisterBurns]

Ja, das habe ich gesagt und das ist auch richtig so! Ich war nur verwundert, dass es eben wieder das "alte" Format war. Aber hauptsache, es passt für dich.