Ich hoffe, Daten von Spalte A in Spalte B zu extrahieren. Wie geht das?

Hallo,

dann erstelle dir doch deine 3. Spalte.

Deine Daten in Spalte A + B, dann in C2:

=SUMMENPRODUKT(($A$2:$A$100=A2)*($B$2:$B$100=B2))

Passe die Bereiche an und ziehe herunter so weit benötigt.

Diese dritte Spalte nimmst du dann für die Bubble-Größe

Mit freundlichen Grüßen

Claus

Hallo Corinna,

angenommen Spalte A hat mehr Einträge und geht bis Zeile 20, Spalte B nur bis 10. Dann markiere die Spalte A => Bedingte Formatierung => Formel zur Ermittlung.... und gebe folgende Formel ein:

=ZÄHLENWENN($B$1:$B$10;A1)=0

und weise einen farbigen Hintergrund zu.

Damit werden dir alle Zahlen, die in Spalte B fehlen eingefärbt.

Sollte Spalte B mehr Einträge haben, markiere Spalte B und stelle die Formel entsprechend um.

Claus

Hallo,

bei deinem Beispiel soll das Komma auch gelöscht werden.

Gebe mal mehr Beispiele, damit man sehen kann, ob da überhaupt eine Logik dahintersteckt, die man für eine Formel oder VBA verwenden kann.

Claus

Hallo,

probiere es mal mit folgendem Makro:

Sub Aufteilen()

Dim LRow As Long, i As Long

Dim n As Integer, j As Integer, k As Integer, z As Integer

Dim varData As Variant, varOut() As Variant, varTmp As Variant
'Hier Tabellenblattname anpassen

With Sheets("Tabelle2")

   LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

   varData = .Range("A2:A" & LRow)

   For i = LBound(varData) To UBound(varData)

      k = 0

      n = Len(varData(i, 1)) - Len(Replace(varData(i, 1), ",", ""))

      For j = 1 To n / 2

         varData(i, 1) = Application.Substitute(varData(i, 1), ", ", "#", 2 + k)

         k = k + 1

         z = IIf(k > z, k, z)

      Next

   Next

   

   For i = LBound(varData) To UBound(varData)

      n = 1

      ReDim Preserve varOut(1 To UBound(varData), 1 To z + 2)

      varTmp = Split(varData(i, 1), "#")

      For j = LBound(varTmp) To UBound(varTmp)

         varOut(i, n) = varTmp(j)

         n = n + 1

      Next

   Next

   .Range("A2").Resize(UBound(varOut), UBound(varOut, 2)) = varOut

End With

End Sub

Claus

Vielen herzlichen Dank!

Es schaut so "einfach" aus, aber ich habe bisher Tage damit verbracht das zu googeln und es nicht herausbekommen.

Deswegen ergreife ich schnell die Gelegenheit und frage noch etwas - Meine Sorgen der letzten 2-3 Wochen wären somit an einem Tag gelöst

Ich weis dass das wohl auch nicht schwer/kompliziert sein wird, aber auch dass habe ich nicht hinbekommen bzw herausbekommen können *lach*

A

Lieferumfang: 53 Paar Schuhe, 47 Hosen, 13 Paar Sneaker Socken, 21 Kugelschreiber, 77 Slips, 50 Sonnenbrillen, 100 Feuerzeuge

Ziel ist es, den Text aus A, nach jedem 2. Komma zu teilen und in die nächste Spalte zu übertragen - bestmöglich ohne das jeweils letzte Komma.

B ; C ; D ; E

Lieferumfang: 53 Paar Schuhe, 47 Hosen ; 13 Paar Sneaker Socken, 21 Kugelschreiber ; 77 Slips, 50 Sonnenbrillen ; 100 Feuerzeuge

Ich bin gespannt

Jey