Buttons sperren wenn eine Zeile frei ist

Forumthread: Buttons sperren wenn eine Zeile frei ist

27.06.2023 16:04:08

Bernhard

Hallo zusammen,

ich habe folgendes Problem.
Ich habe über Buttons (60 an der Zahl) für jeden eigenes Makro kopiert um diese der Schaltfläche hinzuzufügen.

Wenn ein Button geklickt wird, wird ein Text und das Datum eingetragen. Mit einem Klick auf die Stationen wird dann ebenfalls die Station eingetragen.

Nun will ich überprüfen ob Fehler Datum und Station eingetragen sind erst wenn alle 3 Felder voll sind kann wieder eine neue Zeile eingegeben werden.

https://www.herber.de/bbs/user/159742.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Buttons sperren wenn eine Zeile frei ist

27.06.2023 16:13:55

onur

Dann noch viel Spass mit den 60 Makros.

AW: Buttons sperren wenn eine Zeile frei ist

27.06.2023 19:11:31

Ulf

Wie wäs mit einem Button ?
https://www.herber.de/bbs/user/159745.xlsm
hth
Ulf

AW: Buttons sperren wenn eine Zeile frei ist

27.06.2023 20:26:47

Bernhard

Wow, ja das ist ein super Lösung an das habe ich nicht gedacht! Danke :)

AW: Buttons sperren wenn eine Zeile frei ist

27.06.2023 20:09:14

GerdL

Hallo Bernhard,

teste mal.

Sub Fehlermeldung()

    Dim last As Long, strCaption As String, strText As String
    
    With ActiveSheet
    
        last = .Cells(.Rows.Count, 12).End(xlUp).Row
        
        If last = 2 Or (.Cells(last, 12) > Empty And .Cells(last, 13) > Empty And .Cells(last, 14) > Empty) Then
    
            strCaption = .Shapes(Application.Caller).OLEFormat.Object.Caption
            strCaption = Replace(strCaption, "N", "Nutzen")
            Select Case Split(strCaption)(2)
                Case "Loch": strText = strCaption & " oder Riss"
                Case "Hängen", "hängen": strText = Replace(strCaption, Split(strCaption)(2), "Teil bleibt hängen")
            End Select
            .Cells(last + 1, 12).Value = strText
            .Cells(last + 1, 13).Value = Date & Format(Time, "hh:mm:ss")
        End If
    
    End With
    
End Sub

Sub Station()

    Dim nextrow As Long
    
    With ActiveSheet
        nextrow = .Cells(.Rows.Count, 14).End(xlUp).Row + 1
        If .Cells(nextrow, 12) > Empty And .Cells(nextrow, 13) > Empty And .Cells(nextrow, 14) = Empty Then
            .Cells(last, 14).Value = .Shapes(Application.Caller).OLEFormat.Object.Caption
        End If
    End With

End Sub

Gruß Gerd

AW: Buttons sperren wenn eine Zeile frei ist

27.06.2023 20:28:33

Bernhard

Werde ich gerne ausprobieren.
Auch an dich vielen Dank!

Beliebteste Forumthreads (12 Monate)

Buttons sperren wenn eine Zeile frei ist

Forumthread: Buttons sperren wenn eine Zeile frei ist

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread