hallo!
ich habe eine tabelle mit adressen
A1: Name
A2: Adresse
A3: leere Zelle
A4: Name
A5: Adresse
A6: leere Zelle
usw
das sind ungefähr 4000 anschriften
möchte jetzt mit einem makro die adresse neben den namen hinschreiben
also:
A2 soll in B1 stehen
A4 soll in A2 stejem
A5 soll in B2 stehen
usw
so soll das dann ausschauen…
Name Adresse
Name Adresse
kann mir da jemand ein makro schreiben? wäre echt nett…
danke & mfg
michael
Hallo diese Makro müsste funktionieren:
Sub AdressenOrdnen()
Dim Bereich As Range
Dim AusgabeZeile As Integer
Dim zähler As Long
'hier Name des Tabellenblattes mit den Quelldaten eingeben:
Const Quelltabelle As String = "Tabelle1"
'hier Name des Tabellenblattes für die Ausgabe angeben:
Const Ausgabetabelle As String = "Tabelle2"
'hier die Zeilennummer des ersten Namens angeben:
Const ErsteZeile As Long = 1
Set Bereich = ThisWorkbook.Worksheets(Quelltabelle).Range("A:A")
AusgabeZeile = 1
For zähler = ErsteZeile To Bereich.Rows.Count Step 3
With ThisWorkbook.Worksheets(Ausgabetabelle)
If Bereich.Cells(zähler, 1).Value = "" Then Exit For
.Cells(AusgabeZeile, 1).Value = Bereich.Cells(zähler, 1).Value
.Cells(AusgabeZeile, 2).Value = Bereich.Cells(zähler + 1, 1).Value
AusgabeZeile = AusgabeZeile + 1
End With
Next zähler
End Sub
Der Konstantenbereich (Const-Zeile) muss noch entsprechend angepasst werden.
Übrigens geht auch eine Lösung mit Excel-Formeln.
Dazu in eine beliebige Spalte folgende Formel für den Namen eingeben (Name + Formel jeweils in der ersten Tabellenzeile):
=INDIREKT(„A“&ZEILE()*3-2)
und entsprechend weit nach unten kopieren.
Die Formel für die Ausgabe der Adresse in der Nachbarspalte lautet:
=INDIREKT(„A“&ZEILE()*3-1).
Ebenfalls entsprechend weit nach unten kopieren.
Die Ergebnisse können dann über Kopieren und Inhalte einfügen/Werte an den gewünschten Ort kopiert werden.
Ich hoffe, geholfen zu haben,
Viele Grüße tester
danke!
werde es gleicht probieren!