Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1876to1880
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
Inhaltsverzeichnis

Einfügen Komma getrennt

Einfügen Komma getrennt
30.03.2022 08:32:58
Antonio
Guten Morgen,
habe viel durchgesucht aber die viele Beiträge gingen von einer Spalte aus zum zusammenfügen Komma getrennt.
Mein Vorhaben, die Daten in Tabelle1 AE13:AJ80 sehen so aus:
x 65 43 52 32 x
x x 44 34 56 67
23 34 45 56 33 45
Es sind immer 6 Zahlen gemischt mit x ,
Jetzt möchte ich in Tabelle2 ab Z17 sowas bekommen:
65,43,52,32
44,34,56,67
23,34,45,56,33,45
Ohne x.
Es können mehrere Zeilen sein, also bis Leerezeile kommt.
Vielen Dank im Voraus
LG Antonio

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen Komma getrennt
30.03.2022 08:46:21
Daniel
Hi

=Wechseln(Glätten(Wechseln(AE13&" "&AF13&" "&...&" "&AJ13;" x";" "));" ";",")
Bei den ... die Formel entsprechend weiterführen.
Gruß Daniel
AW: Einfügen Komma getrennt
30.03.2022 09:23:35
Antonio
Hallo Daniel,
danke für dein Antwort.
Habe vergessen zu erwähnen das ich es mit einen Macro machen würde
weil
die Formel sollen nicht übernommen werden nur die Werte
die Daten werden weiter verarbeitet
Danke
LG Antonio
AW: Einfügen Komma getrennt
30.03.2022 10:53:26
Daniel
Dann schreibe dir ein Makro, dass die Formel einfügt und ersetze dann Formeln durch Werte.
Der Recorder hilft dir dabei.
Gruß Daniel
Anzeige
AW: Einfügen Komma getrennt
30.03.2022 10:53:32
Daniel
Dann schreibe dir ein Makro, dass die Formel einfügt und ersetze dann Formeln durch Werte.
Der Recorder hilft dir dabei.
Gruß Daniel
noch eine VBA Lösung
30.03.2022 11:02:45
UweD

Sub Komma_getrennt()
Dim TB1 As Worksheet, TB2 As Worksheet, RngQ As Range, RngZ As Range
Dim Arr, i As Integer, Anz As Integer
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Set RngQ = TB1.Range("AE13:AJ80")
Set RngZ = TB2.Range("Z17")
Anz = RngQ.Rows.Count
'reset
RngZ.Resize(Anz, 1).ClearContents
ReDim Arr(1 To Anz)
For i = 1 To Anz
Arr(i) = Join(Application.Transpose(Application.Transpose(Intersect(RngQ, RngQ.Rows(i)))), ",")
Arr(i) = Replace(Replace(Arr(i), ",x", ""), "x,", "") ' x weg
Next
Arr = Filter(Arr, ",,,,,", False) 'komplett Leere Zeilen löschen
RngZ.Resize(UBound(Arr) + 1, 1).Value = Application.Transpose(Arr)
End Sub
LG UweD
Anzeige
AW: Einfügen Komma getrennt
30.03.2022 09:41:10
Rudi
Hallo,

Sub aaa()
Dim vntIN, vntOUT()
Dim strOUT As String
Dim i As Integer, j As Integer
With Sheets("Tabelle1")
vntIN = .Range(.Range("AE13"), .Range("AE13").End(xlDown)).Resize(, 6)
End With
ReDim vntOUT(1 To UBound(vntIN), 1 To 1)
For i = 1 To UBound(vntOUT)
strOUT = vbNullString
For j = 1 To 6
If IsNumeric(vntIN(i, j)) Then
strOUT = strOUT & "," & vntIN(i, j)
End If
Next j
vntOUT(i, 1) = Mid(strOUT, 2)
Next i
Sheets("Tabelle2").Range("Z17").Resize(i - 1) = vntOUT
End Sub
Gruß
Rudi
AW: Einfügen Komma getrennt
30.03.2022 09:46:39
Antonio
Hallo Rudi,
vielen Dank genauso wollte ich ihn haben.
Eine Frage, wo wird im Macro die "x" weggelassen?
LG Antonio
Anzeige
AW: Einfügen Komma getrennt
30.03.2022 09:54:08
Rudi
Hallo,
hier:

If IsNumeric(vntIN(i, j)) Then
strOUT = strOUT & "," & vntIN(i, j)
End If
strOUT wird nur gefüllt, wenn es sich um eine Zahl handelt.
Gruß
Rudi
AW: DANKE owT
30.03.2022 09:56:09
Antonio
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige