etwas schleifen... ich hoffe ich könnt mir torzdem ncoh weiter helfen Danke
Sub Artist()
Zeile = 2
Set rng = ActiveSheet.UsedRange
For Each Zelle In rng
If Zelle.Font.Bold = True Then
Sheets("Tabelle2").Cells(Zeile, 1).Value = Zelle.Value
Zeile = Zeile + 1
End If
Next
End Sub
So filtert man den Artist herraus oder so ähnlich :D:D:D
so also den Artist bekommt man an der Bold schrift selektiert
den titel an dem * ganz klar
das label an der Kursiv schrift
bei label noch eine erklärung
Atlantic WEA ATL 11706 82 DE
82=erscheinungsjahr
DE=in deutschland logisch wa?
die zahl im label ist die bestellnummer die zusammen mit dem label kursiv gedruckt ist
so cool währe wenn man das alles auch extra filtern kann :D:D:D
also
Atlantic WEA ATL 11706
extra zelle
82
extra zelle
DE
Extra zelle
das währe cool
kleiner tipp noch die 82 und das DE ist nciht mehr kursiv D::D:D
aber erstmal währe so eine grobe filterung cool also so eine art ansatzt das auch strucktur drinne ist wisst ihr?
also
Spalte A fängt dann mit dem artist an
und Spalte B ist dann mit den Titeln versehn