"
+ TextHTMLtableAgg &= "| " & gebaeude & " | "
+
+ For Each tag As String In {"Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag"}
+
+ Dim value As String = ""
+
+ If dict(gebaeude).ContainsKey(tag) Then
+ value = String.Join("
", dict(gebaeude)(tag))
+ End If
+
+ TextHTMLtableAgg &= "" & value & " | "
+
+ Next
+
+ TextHTMLtableAgg &= ""
+ If dictHatAnmerkung.ContainsKey(gebaeude) AndAlso dictHatAnmerkung(gebaeude) Then
+ TextHTMLtableAgg &= "⚠ Anmerkung vorhanden"
+ End If
+ TextHTMLtableAgg &= " | "
+
+ TextHTMLtableAgg &= "
"
+
+ Next
+
+ TextHTMLtableAgg &= "