Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Adressen Transponieren

Adressen Transponieren
29.08.2006 16:25:23
Emanuel
Hallo zusammen,
ich habe für Experten ein wahrscheinlich kleines Problem:
Ich habe in einem Tabellenblatt in Spalte A mehrere Adressen stehen. Immer Name, Straße, Ort und manchmal noch E-Mail und Telefonnummer. Die Adressen sind immer durch eine Freizeile getrennt. Nun möchte ich ein Makro, dass die Spalte A abwärts geht und die Adressen kopiert und sie, beginnend in Spalte B transponiert. Wie gehe ich da vor, da ja auch die Adressen unterschiedlich viele Zeilen umfassen. Schon einmal vielen Dank im Voraus für die Hilfe
Emanuel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Adressen Transponieren
29.08.2006 16:43:08
u_
Hallo,
in ein Modul:

Sub Adressen()
Dim i As Long, j As Integer
Application.ScreenUpdating = False
For i = 1 To Cells(65536, 1).End(xlUp).Row
With Cells(65536, 2).End(xlUp).Offset(1, 0)
For j = 0 To 5
If Cells(i + j, 1) = "" Then
i = i + j
Exit For
End If
.Offset(0, j) = Cells(i + j, 1)
Next j
End With
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Lesen gefährdet die Dummheit
AW: Adressen Transponieren
29.08.2006 16:49:01
Emanuel
Super!
Funktioniert 1a. Dankeschön!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige