Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Texte verteilen und Zahl anfügen

Texte verteilen und Zahl anfügen
09.12.2021 11:06:34
Christian
Hallo,
zuerst einmal meine Excel Version ist 2021 nicht 2022.
https://www.herber.de/bbs/user/149703.xlsx
Wie kann ich am einfachsten die Zeile 10 erstellen, also zuerst die 8 Texte mit einer 1 im Anschluss auflisten, dann die 8 Texte mit einer 2 im Anschluss, dann die 8 Texte mit einer 3 im Anschluss, dann die 8 Texte mit einer 4 im Anschluss usw.
Jetzt mein großes Problem, der Text6 soll z.b. nur 58mal aufgelistet werden, danach übersprungen werden. Der Text 8 soll 338 mal aufgelistet werden, danach übersprungen werden,usw. hat da jemand eine Idee wie sich das umsetzen lässt?
Vielen Dank
Christian

24
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Texte verteilen und Zahl anfügen
09.12.2021 11:21:03
Herbert_Grom
Hallo Christian,
irgendwie habe ich das Gefühl, dass man deine eigentliche Aufgabe auch anders lösen kann. Kannst du mal eine Beispielarbeitsmappe hochladen, die dem Layout deiner Originalen entspricht, aber mit Beispieldaten?
Servus
AW: Texte verteilen und Zahl anfügen
09.12.2021 11:35:53
Christian
Hallo Herbert,
es geht lediglich um diese eine Zeile.
Es geht um 8 URL's, die jeweils noch weitere Unterseiten haben, welche durchnummeriert sind.
Die Anzahl der Unterseiten steht in Spalte B, es geht mir lediglich darum, sämtliche Unterseiten aufzulisten.
Gruß
Christian
AW: mit Hilfe von INDEX() ...
09.12.2021 11:24:43
INDEX()
Hallo Christian,
... in A10 so: =INDEX($A:$A;REST(SPALTE(A1)-1;8)+1)&KÜRZEN((SPALTE(A1)-1)/8)+1 und Formel nach rechts ziehend kopieren.
Gruß Werner
.. , - ...
Anzeige
AW: mit Hilfe von INDEX() ...
09.12.2021 11:31:41
INDEX()
Hallo Werner,
deine Formel berücksichtigt leider nicht die Grenzen, ab wann ein Text übergangen werden soll.
Gruß
Christian
AW: ja, das hatte ich übersehen ...
09.12.2021 11:45:34
neopa
Hallo Christian,
... weil ich fälschlicherweise davon ausging, dass Du nur 8x8 Spaltenwerte erzeugen willst.
Das was Du nun anstrebst, geht zwar mit Formeln zu realisieren u.a. mit INDEX() und VERGLEICH() und einer weiteren Hilfsspalte. Ist aber viel zu aufwendig.
Unabhängig davon bleibt mir unklar, für was es gut sein sollte ca 8000 Spalten zu befüllen.
Gruß Werner
.. , - ...
AW: hast ja jetzt eine VBA-Lösung von Rudi owT
09.12.2021 11:46:40
Rudi
Gruß Werner
.. , - ...
AW: ja, das hatte ich übersehen ...
09.12.2021 12:03:32
Christian
Hallo Werner,
zur Erklärung, es geht hier um Erzeugung von Spaltenüberschriften.
Der Hintergedanke ist, ich will dann in die jeweiligen Spalten Inhalte der Internetseiten kopieren, diese kann ich aber nur innerhalb einer Spalte einfügen, nicht transponieren, sodass sie innerhalb einer Zeile eingefügt werden. Daher das ganze innerhalb einer Zeile, nicht innerhalb einer Spalte.
Vielen Dank trotzdem
Christian
Anzeige
AW: meine Frage/Hinweis ...
09.12.2021 15:21:54
neopa
Hallo Christian,
... zielte darauf ab, dass ich mir momentan keine halbwegs übersichtlich handhabbare Excel-Tabelle vorstellen kann, die knapp 8000 Spalten hat.
Rechnest Du für diese Deine Zieltabelle gar auch noch mit mehr als 8000 Datensätzen?
Gruß Werner
.. , - ...
AW: meine Frage/Hinweis ...
09.12.2021 18:39:36
Christian
Hallo Werner,
das ganze ist nur temporär um dann mit PQ die Daten rauszuziehen die ich wirklich brauche. Hab das ganze inzwischen auch auf rund 4300 Spalten verkürzt.
Gruß
Christian
AW: dann aber solltest Du auch dafür ...
09.12.2021 18:58:16
neopa
Hallo Christian,
... gleich PQ einsetzen und dafür nicht erst mit Formeln oder VBA "vorbereiten".
Gruß Werner
.. , - ...
Anzeige
AW: dann aber solltest Du auch dafür ...
10.12.2021 14:36:53
Christian
das einzige was ich mit Formeln oder VBA mache sind ja die Erstellung der Spaltenüberschriften.
Ganz ehrlich, ich habe mich zu Beginn nicht auf einen bestimmten Lösungsweg festlgelegt, ich hätte sowohl eine Formel als auch VBA als auch PQ Lösung genommen.
Ok, im Endeffekt eingesetzt habe ich jetzt die VBA Lösung von Rudi, einfach weil es die erste verfügbare und funktionierende war.
Gruß
Christian
per VBA
09.12.2021 11:41:57
Rudi
Hallo,
in ein Modul:

Sub aaa()
Dim vCounter(1 To 8)
Dim vntIn, vntOut
Dim i As Integer, iAnz As Integer, j As Integer
With Sheets(1)
iAnz = Application.Sum(.Range("B1:B8"))
vntIn = .Range("A1:B8")
End With
ReDim vntOut(1 To iAnz)
For j = 1 To iAnz
For i = 1 To 8
If vCounter(i)
Gruß
Rudi
Anzeige
AW: per VBA
09.12.2021 12:07:57
Christian
Hallo Rudi,
danke erstmal.
Jedoch kann da was nicht stimmen. Es müssten 7997 Texte ausgegeben werden, es sind jedoch nur 1765.
Gut, das die Reihenfolge eine andere ist, als meine ursprüngliche, ist egal.
Was aber noch schön wäre, geht das auch ohne die Unterstriche?
Danke
Christian
AW: per VBA
09.12.2021 12:30:31
Rudi
Hallo,
so passt das:

Sub aaa()
Dim vCounter(1 To 8)
Dim vntIn, vntOut
Dim i As Integer, iAnz As Integer, j As Integer, n As Integer
With Sheets(1)
iAnz = Application.Sum(.Range("B1:B8"))
vntIn = .Range("A1:B8")
End With
ReDim vntOut(1 To iAnz)
For j = 1 To iAnz
For i = 1 To 8
If vCounter(i)
Gruß
Rudi
Anzeige
AW: Texte verteilen und Zahl anfügen
09.12.2021 12:22:30
UweD
Hallo
hier meine Lösung

Sub Christian()
Dim LR As Long, Sp As Integer
Dim aArr, bArr, i As Long, j As Long
'reset
Rows(10).ClearContents
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
ReDim aArr(1 To LR)
bArr = Application.Transpose(Cells(1, 2).Resize(LR, 1))
For j = 1 To WorksheetFunction.Sum(bArr)
For i = 1 To LR
If aArr(i)
LG UweD
AW: Texte verteilen und Zahl anfügen
09.12.2021 12:43:24
Christian
Hallo Uwe,
funktioniert auch. Was ich mir aber nicht erklären kann ist dass es deutlich länger gedauert hat als Rudis Vorschlag (ca 1 Minute im Vergleich zu just in Time).
Vielen Dank.
Gruß
Christian
Anzeige
AW: Texte verteilen und Zahl anfügen
09.12.2021 12:46:36
UweD
Rudi schreibt alles erst in ein Array
und dann das Array auf einmal in die Zellen zurück
Ich schreibe jeden Wert direkt in die Zellen
Hauptspeicher ist ALLES
AW: Texte verteilen und Zahl anfügen
09.12.2021 13:16:19
Christian
Hauptspeicher = 16 GB, falls du den RAM meinst.
Aber hab das Problem gefunden, ich hatte ne Zählenwenn Funktion eingefügt um zu überprüfen ob jeder Text so oft vorkommt wie er vorkommen soll. Kann also auh daran gelegen haben.
Gruß
Christian
PQ Nachzügler
09.12.2021 13:55:39
ChrisL
Hi Christian
Hier noch eine Alternativlösung mittels Power-Query. Aufgrund der Restriktion betr. Dateigrösse im Forum habe ich das Ergebnis nicht dargestellt, sondern nur eine Verbindung erstellt.
https://www.herber.de/bbs/user/149718.xlsx
Wenn ich deine Antwort an Herbert lese, könnte man mal nach "Power-Query dynamische Webabfrage" oder "Power-Query web scraping" suchen. Zugegeben, es benötigt etwas Einarbeitung, um in PQ mit Parametern (Seiten-Index) zu arbeiten. Andererseits, alle 8000 (Teil-)Links in eine Tabelle zu schreiben scheint mir nicht zweckmässig.
cu
Chris
Anzeige
AW: PQ Nachzügler
09.12.2021 14:05:18
Christian
Hallo Chris,
gut gemeint, jedoch kommt man an die Daten nur mit Nutzername / Passwort, die möchte ich ungerne hier preisgeben.
Du hast am Schluss genau die falsche Spalte pivotiert, wie ändere ich das?
Danke
Christian
AW: PQ Nachzügler
09.12.2021 14:14:13
ChrisL
Hi Christian
Dein Passwörter darfst du behalten :)
Ich meine ja nur, dass man die Links nicht einzeln und horizontal aufschreiben muss, um die Parameter abzuarbeiten. Egal ob VBA oder PQ.
Die Spalten-Titel entsprechen deinem gewünschten Resultat. Für die Ausgabe benötigt PQ auch eine Datenzeile, die ich mit der Anzahl gefüllt habe. Man hätte auch irgendwas wie "xxx" reinschreiben können, aber ohne geht es leider nicht.
Aber eben, eigentlich braucht es gar keine Pivotierung oder Ausgabe in Tabellenform und damit wäre auch die überflüssige Zeile irrelevant.
cu
Chris
Anzeige
AW: PQ Nachzügler
09.12.2021 14:18:02
Christian
Hallo Chris,
stimmt, ich hab nur auf die Zeile geachtet, nicht auf die Überschrift,
sorry.
Aber warum soll ich die URL's per PQ aus dem Internet abfragen, wenn ich doch weiß dass es nur um 8 Stamm URL's geht und weiß wie sich die Unterseiten aufbauen.
Gruß
Christian
AW: PQ Nachzügler
09.12.2021 14:29:42
ChrisL
Hi
Die Daten, die du uns zur Verfügung gestellt hast, sind OK. Die würde ich auch nicht aus dem Web abfragen.
Die Frage ist, was du mit dem nun erzeugten Resultat (die rund 8000 Einträge) machst. Ich dachte damit machst du dann eine Webabfrage. Vielleicht habe ich fälschlicherweise interpretiert, dass du "web scraping" machst.
Egal... Hauptsache der Kunde ist zufrieden :)
cu
Chris
Anzeige
AW: PQ Nachzügler
09.12.2021 18:40:25
Christian
genau genommen mache ich Copy + Paste von Teile der Inhalte der Internetseiten, ja

302 Forumthreads zu ähnlichen Themen

Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Text und Ziffern farblich trennen
Joachim

Hi,
kann ich mit einem Makro einen Zellinhalt unterschiedlich färben. Hintergrund ist folgender: ich prüfe einen Range, ob dort Einträge sind, die nicht Nummern sind.
For Each c In .Range("DD2:DD1000")
If Not IsNumeric(c) Then .... wenn nicht
... springe ich in diese Zell...
29.11.2008 13:45:19
Thread-ID: 1028831
15 Beiträge
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Anzeige
Buchstaben suchen und trennen
Ralle

Hallo sehr geehrte Forumsmitglieder,
ich benötige Eure Hilfe.
In Zeile A1 steht z.B: AntonBiber.
Nun möchte dieses Wort trennen, jeweils beim Grossbuchstaben.
Wenn möglich auch in VBA. Weils ne größere Datei ist.
Vielen Dank.
mfg Ralle
09.02.2009 16:21:00
Thread-ID: 1048703
5 Beiträge
"Zahlenspalte"und die "Buchstabenreihe" ausblenden
Karsten

Hallo,
kann man in Excel die "Zahlenspalte" (links vertikal 1234...) und die "Buchstabenreihe" (oben hor. A B C ...) ausblenden / verstecken?
Danke für die Hilfe.
Gruß
Karsten
28.02.2009 12:55:27
Thread-ID: 1055046
5 Beiträge
Text und Zahlen teilen
Bernie

Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zünd...
05.03.2009 14:39:23
Thread-ID: 1056861
7 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Zahl mit führenden Buchstaben
gerhard

Hallo,
Bitte um VBA Hilfe,
Wie kann ich nach Eingabe einer Nummer in der Spalte ab C6 zwei führende Buchstaben automatisch
anhängen.
z.B.
Eingabe in Zelle C10 die Nummer 4711 dann sollte nach Abschluß der Zelleingabe die
beiden führenden Buchstaben VA automatisch angefüg...
14.07.2009 13:22:48
Thread-ID: 1088460
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
5
14
3
6
4
4
6
6
12
6
2
4
3
7
5
5
3
5
5
22
11
3
2
3