Adressen durch Leerzeile trennen + farblich kennzeichnen

[huhu350]

Hallo liebe Forum-Cracks !

Ich habe ein Problem mit einer Excel-Tabelle.

Mir liegt eine größere Adressdatei vor bei welcher die Formatierung total unübersichtlich ist und so nicht zu verwenden ist.

1.
Bei den Adressen (sh. Excel-Tabelle im Anhang) soll nach der Zeile "Homepage" auf dem ganzen Datenblatt eine Leerzeile eingefügt werden

2.
Zudem sollen alle Adressen (ohne Leerzeile) zur besseren Übersichtlichkeit farblich gelb hervorgehoben werden.

3.
In der jeweils ersten Adresszeile ist neben dem vollständigen Namen nochmals derselbe Namen in Klammer vorhanden. Wie kann ich dies bei allen Adressen änderen und diesen Namenszusatz löschen ?


Könnt Ihr mir helfen und sagen wie ich das hinbekomme.

Danke.
Isabell

[WillWissen]

Hallo Isabell,

deine Adressdatei habe ich aus Datenschutzgründen entfernt. Die darin angeführten Personen würden sich bedanken, wenn deren Daten veröffentlicht werden. Bitte anonymisiere diese Adressliste (und begrenze sie auf etwa 10 Adresssätze); danach bitte wieder hochladen.

[MisterBurns]

Hallo Isabell,

du solltest mittlerweile eigentlich verstanden haben, dass du im Forum keine Echtdaten hochladen darfst. Dies wird auch beim nächsten Mal so sein. Überleg mal - fändest du es klasse, wüden deine Daten hier im Netz so offen herumschwirren?  :)

Zu deiner Problematik:

1. Verwende diesen Code. Ich habe noch abgefragt, ob sich unterhalb der Homepage bereits eine Leerzeile befindet. Falls ja, wird keine Zeile eingefügt.

Code:

Sub Bearbeiten()
Dim i As Long
Dim letzte As Long

With Sheets("Tabelle1")
   letzte = .Cells(Rows.Count, 2).End(xlUp).Row
       For i = letzte To 1 Step -1
           If Left(.Cells(i, 3), 8) = "Homepage" And .Cells(i + 1, 3) <> "" Then
               .Rows(i + 1).Insert shift:=xlDown
           End If
       Next
End With

End Sub

2. Was verstehst du unter "Adressen"? Straße, PLZ und Ort? Überleg dir das mit der Farbe gut, denn diese sollte sehr sparsam eingesetzt werden. Farbe ist häufig das Gegenteil von gut, verursacht aber eher Kopfschmerzen und Unübersichtlichkeit.

3. Verwende Strg+h um den Suchen/Ersetzen Dialog aufzurufen. Bei "Suchen" trägst du "(*)" ohne die Anführungszeichen ein, bei "Ersetzen" nichts. Drück auf "Alle ersetzen" - Fertig.

EDIT: Zu 3. habe ich gerade gesehen, dass du in den Zeilen Nr. 8 immer "(S) Süd" stehen hast. Das würde mit der oben angeführten Methode natürlich auch gelöscht. Suche daher nach " (*)", also mit einem Leerzeichen vor der öffnenden Klammer.

[huhu350]

Hallo Berni,

ich habe Dir eine PN geschickt.

Die Leerzeile sollte nach der Zeile mit der "Homepage" eingefügt werden.

Zur Farbe meinte ich das die komplette Adresse (Zeile 1 bis 13) farbig ist - ohne Durchnummerierung. Nicht nur einzelne Zeilen der Adresse.

Gruß
Isabell