Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
19.05.2024 17:28:17
E-Mailadressen Alphabetisch sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buttons sperren wenn eine Zeile frei ist

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

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

Betreff
Datum
Anwender
Anzeige
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 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


Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige