Hallo,
Seit mehr Monaten gibt es bei uns von Zeit zu Zeit einen Warmwasserausfall. Durch einen Techniker wurde festgestellt dass der Wärmetauscher (Neubau - erst 4 Jahre alt), der bei mir in der Wohnung situiert ist, einen Warmwasserausfall von allen Wohnungen verursacht. Der Ausfall der Pumpen im Technikraum kommt dadurch zu Stande, weil das Wasser von der Kaltwasserleitung (ca.3,5bar) über den defekten Wärmetauscher in die Heizungsleitung (ca.1,5bar) drückt und dadurch den Druck in der Heizungsleitung ansteigen lässt bis das Sicherheitsventil auslöst, den Druck ablässt und die Pumpen abdreht.
Die Anlage funktioniert somit nur wenn in allen Wohnungen die Wärmetauscher funktionstüchtig sind.
Meine Frage nun: Wer muss für diesen Schaden aufkommen? Der Wohnungseigentümer (ich) oder die Allgemeinheit (alle Wohnungseigentümer)?

Danke vorab!

Hallo meine lieben,

ich benötige wieder einmal eure Hilfe. Ich habe im Internet einen VBA Code gefunden der es ermöglich in einer PowerPoint Präsentation die aktuelle Uhrzeit mit Sekunden anzuzeigen. Da der Code leider nicht 64bit tauglich war hab ich ein wenig rumgetüftelt und siehe da, die Uhr selbst funktioniert schon mal. Aber leider bekomme ich ständig eine Fehlermeldung sobald die Folie gewechselt wird. "slides (unknown member): bad argument type. Excectet Collection index (string or integer). Ich verwende Windows 10 und Office 2016.

Würde mich rießig freuen wenn mir hier jemand weiterhelfen kann.

Vielen Dank im Voraus.

Leider ist der Code zu lange daher in 2 Teile.

Erster Teil:

Option Explicit

'API Declarations
Declare PtrSafe Function SetTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr, _
                             ByVal uElapse As LongPtr, _
                             ByVal lpTimerFunc As LongPtr) As LongLong

Declare PtrSafe Function KillTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr) As LongLong

' Public Variables
Public ClockTimerID As LongLong
Public prevSlideIdx As LongLong

Const TIMEFORMATSTRING As String = "dd.mm.yyyy - HH:mm:ss - KW :ww" 'show seconds with: "HH:mm:ss""

Dim pptEventObject As New Klasse1 'AppClassModule
'DIESE METHODE EINMALIG UNTER MAKROS STARTEN, DAMIT DAS EVENTHANDLING FUNKTIONIERT!
Sub InitializeApp()
    Set pptEventObject.App = Application
End Sub


Sub StartClockTimer()
    On Error GoTo ErrorOccurred
    
    'first make sure its not already running
    ClockTimerID = KillTimer(0, ClockTimerID)
    ClockTimerID = SetTimer(0, 0, 1000, AddressOf TimerProcClock)
    If ClockTimerID = 0 Then
        MsgBox "Unable to create the clock timer", vbCritical + vbOKOnly, "Error"
        Exit Sub
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


Sub StopClockTimer()
    On Error GoTo ErrorOccurred
    
    If Not ClockTimerID = 0 Then
        ClockTimerID = KillTimer(0, ClockTimerID)
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


' The defined routine gets called every nnnn milliseconds.
Sub TimerProcClock(ByVal hwnd As LongPtr, _
                    ByVal uMsg As LongPtr, _
                    ByVal idEvent As LongPtr, _
                    ByVal dwTime As LongPtr)
On Error GoTo ErrHandler
    
    If Not ActiveSlide Is Nothing Then
        ActiveSlide.Shapes("PointaixClockLabel").TextFrame.TextRange.Text = WeekdayName(Weekday((Now()))) + " " + Format(Now(), TIMEFORMATSTRING)
    End If

    Exit Sub
ErrHandler:
End Sub

Hallo, ich habe 31 Zellen(max. Anzahl der Tage pro Monat) in einer Zeile hintereinander. Nun möchte ich dass die darunterliegende Zelle automatisch mit einer 1 hinterlegt wird sobald aktuelles Datum -1 (in der Vergangenheit liegt) außer es ist Wochenende, dann soll die Zelle leer bleiben.

Ich habe schon einiges probiert aber schaffe es leider nicht. Meine Gedanke war "=WENN(UND(B2<$AF$7;<>WOCHENTAG(B2;2)>5;1;"")" aber da gibt es ein Problem mit der Funktion.

B2: der erste Tag des Monats AF7: der aktuelle Tag

Vielen Dank im Voraus.

Hallo Leute,
meine beiden Pflanzen lassen seit einigen Tagen alles hängen bzw. bei der Gurkenpflanze vertrocknen die Blätter ständig trotz reichlichem Gießen. Beide Pflanzen haben vor einigen Wochen einen Langzeitdünger bekommen und waren bis jetzt immer sehr schön. Ich dachte dass ihnen die Sonne ein wenig zu schaffen macht, aber das wird es wohl auch nicht sein da sie seit einer Woche an einem schattigeren Plätzen stehen und sich nichts geändert hat.

Hat jemand bereits Erfahrung mit einer Kreditkarte von free(.)at? (https://www(.)free(.)at)
Gibt es einen Hacken?

Wie und mit was repariert man am besten ein Loch in einer Rigipsdecke?

Nach mehr als 3 Jahren ist die Behandlung der Zahnfehlstellungen vollendet. Leider hat sich durch das Richtigstellen der Zähne an manchen Stellen eine Lücke gebildet.
Gibt es eine Möglichkeit dies zu beheben um ein ästhetisches Mundbild  herzustellen?