Thema Datum  Von Nutzer Rating
Antwort
15.09.2023 13:09:50 Dominik
Solved
15.09.2023 17:08:10 xlKing
NotSolved
Rot Inhalte aus Spalten ausgliedern und neu strukturieren
15.09.2023 18:05:26 Gast46347
NotSolved

Ansicht des Beitrags:
Von:
Gast46347
Datum:
15.09.2023 18:05:26
Views:
103
Rating: Antwort:
  Ja
Thema:
Inhalte aus Spalten ausgliedern und neu strukturieren

Hallo nochmal,

Basierend auf meinem vorherigen Vorschlag könnte der Code für die Umwandlung in etwa so aussehen:

Sub Uebersicht_Erstellen()
  Dim Quelle As Worksheet, Ziel As Worksheet
  
  Set Quelle = Sheets("Quelltabelle")
  Set Ziel = Sheets("Zieltabelle")
  
  lz = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To lz
    arr = Split(Quelle.Cells(i, 2), ", ")
    For Each x In arr
      Datum = DateValue(Left(x, 10))
      Platz = Mid(x, 13, 3)
      Belegungen = Val(Mid(x, 18, 1))
      Zeile = Application.Match(CLng(Datum), Ziel.Range("A:A"), 0)
      Spalte = Application.Match(Platz, Ziel.Rows(1), 0)
      If Not IsError(Zeile) And Not IsError(Spalte) Then
        Ziel.Cells(Zeile, Spalte) = Ziel.Cells(Zeile, Spalte) + Belegungen * 10
      End If
    Next x
  Next
   
End Sub

Tipp: die Zahlen würde ich per bedingter Formatierung noch einfärben. z.b. 20 € grün, 10 € blau 30€ und höher rot. Damit siehst du noch besser, wo es freie Plätze gibt und wo eine Überbelegung vorliegt.

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.09.2023 13:09:50 Dominik
Solved
15.09.2023 17:08:10 xlKing
NotSolved
Rot Inhalte aus Spalten ausgliedern und neu strukturieren
15.09.2023 18:05:26 Gast46347
NotSolved