Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1000 Adressen von 1 Spalte in drei Spalten

Forumthread: 1000 Adressen von 1 Spalte in drei Spalten

1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:00:34
1
Hallo,
wie kann ich wohl bei folgender Datei vorgehen:

Die Datei https://www.herber.de/bbs/user/32230.xls wurde aus Datenschutzgründen gelöscht

damit ich jeweils in einer Zeile ein Unternehmen habe, d.h. in Spalte A Name, in Spalte B Straße, in Spalte C die Stadt.
Alle Adressen sind dreizeilig, es sind tausende von Daten.
Vielen Dank im Voraus,
Frank
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:04:50
1
Hallo Frank,
da du VBA kannst, warum schreibst du dir nicht ein kleines VBA, wo in einer Schleife Zeile für Zeile nebeneinander kopiert wird, bis das Ende der Tabelle erreicht ist?
Gruss Manfred
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:14:25
1
und hier das passende Beispiel für diese vba
https://www.herber.de/bbs/user/32235.xls
Anzeige
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:33:21
1
Hallo
ginge so...

Sub TT()
On Error GoTo Fehler
Dim LR%, TB1, TB2, I#, J#
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
J = 1 'Start ZielZeile
For I = 1 To LR Step 3
TB2.Cells(J, 1) = TB1.Cells(I, 1) 'Name
TB2.Cells(J, 2) = TB1.Cells(I + 1, 1) 'Straße
TB2.Cells(J, 3) = TB1.Cells(I + 2, 1) 'PLZ Ort
TB2.Cells(J, 4) = TB1.Cells(I, 3) 'Tel
TB2.Cells(J, 5) = TB1.Cells(I + 1, 3) 'Fax
TB2.Cells(J, 6) = TB1.Cells(I + 2, 3) 'mob
J = J + 1
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:33:32
1
Hallo Manfred,
ich kann leider überhaupt kein VBA; es gibt hier nur die Möglichkeit "kaum Excel/VBA Kenntnisse" auszuwählen, sonst hätte ich "keine...." gewählt.
Danke,
Frank
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:36:33
1
Hallo Jürgen,
vielen Dank! Da ich Laie hier bin: wie kriege ich jetzt wohl Dein VBA Skript in meine Datei (kann ich die Datei hier vom Server wieder abspeichern)?
Habe es gerade nicht hinbekommen.
Gruß
Frank
Anzeige
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:38:38
1
Hallo
-Alt+F11 öffnet den VBeditor
- dort dann, Einfügen Makro
- Makro reinkopieren
Gruß UweD
(Rückmeldung wäre schön)
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:42:52
1
grins... für Laien ist es "Einfügen" und "Modul" weil Makro ist es zwar aber das wird nicht angeboten :-))
stimmt ..
24.03.2006 15:46:53
UweD
Anzeige
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:40:27
1
Hallo Frank!
Du kannst mit der rechten Maustaste auf den Link gehen und "speichern unter" anwählen.
Dann nimmst du halt gleich diese Arbeitsmappe und kopierst die 1000 Adresse rein.
Danach auf Makro (es gibt nur eines) ausführen. Fertig...
Ich habe es auf 65000 definiert...soviel Adresse wirst du nicht haben.
Das Makro kopieren kann ich dir auch noch erklären wenn du es brauchst.
Gruß Jürgen
Anzeige
Danke ! (war 1000 Adressen von 1 Spalte in drei )
26.03.2006 17:22:01
1
Vielen Dank Euch beiden!
Klappt hervorragend.
Einen schönen Sonntag noch,
Frank
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:38:06
1
Hallo Uwe,
auch hier wieder: der Laie weiß leider nicht, was er mit Deinem Vorschlag machen muß (wo einfügen in meine Datei)....
Gruß
Frank
AW: 1000 Adressen von 1 Spalte in drei Spalten
24.03.2006 15:47:52
1
Deine Datei mit Makro
https://www.herber.de/bbs/user/32237.xls
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
;

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Anzeige
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
Anzeige
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige