Ermitteln, welches Label angeklickt wurd

Ich brauche einen Code, mit dem ich feststellen kann, welches von 100 Bezeichnungsfelden (= Label) angeklickt wurde.

Bei Befehlsschaltflächen (Commandbuttons) kann man es mit

MsgBox ActiveControl.Name

ermitteln.

Der Code gibt aber keine Label wieder. Es kommt immer der zuletzt aktivierte Button und nicht das Label.

Ich kann natürlich das einzelne Click-Ereignis jedes Labels abfragen, aber was für ein Aufwand!

Ich hoffe jemand weiß, wie ich in einer Function ermitteln kann, welches Label die Function aufgerufen hat

wenn man im Eigenschaften-Fenster des Labels unter "Beim KLicken" folgendes einträgt, kann man die Function aufrufen und muss nicht das Click-Ereignis programmieren:

=MyFunction()

Wertet man dann in der Function aus, welches Label aktiv war, kann man daraufhin verzweigen.

Bin für jeden Hinweis dankbar

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

09.10.2014, 17:15

Kannst du nicht einfach ein Textfeld nehmen, es auf readonly setzen und den Hintergrund und den Rahmen transparent gestalten?

Die Eigenschaft "Beim Klicken" finde ich bei einem Label nicht in VBA von Excel 2010 jedenfalls.

PauleVBA

Beitragsersteller

10.10.2014, 14:41

Danke für den Tipp.

Aber 100 Label durch Textboxen ersetzen ist aufwendiger als 100 Klick-Ereignisse zu programmieren.

Ich habe halt schon beim Einstieg die falschen Objekte gewählt. Textboxes können mit ActiveControl.Name ermittelt werden.

Die Eigenschaft "Beim Klicken" für Labels existiert nicht auf dem Tabellenblatt, sondern nur im Userform. Und auch nur, wenn man dass Label dann doppelt anklickt geht der Editor auf und bietet das Klick-Ereignis an. Gilt auch für Excel 2010 und 2003

Das gilt für viele Objekte: Erst nach dem Anklicken kann man im Editor alle Ereignisse sehen, in den Eigenschaften fehlen manchmal welche

PauleVBA

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

11.10.2014, 17:27

@Suboptimierer:

Aber ich habe ich jetzt die Lösung gefunden:

Das generelle Click-Ereignis für alle Labels ist jetzt eine Function:

Function Displayclicked(strCallingLabel As String)

     Me.Controls(strCallingLabel).ForeColor = clrRed
     Me.Controls(strCallingLabel).FontWeight = 600
     Me.Controls(strCallingLabel).ControlTipText = "Schon gewählt"
    'und so weiter
End Function

Die Function rufe ich beim Click-Ereignis des einzelnen Labels auf und übergebe ihr den Namen des Labels

Damit ich das nicht manuell machen muss, habe ich eine einmalige Prozedur im Modul geschrieben:

Sub umbenennen()
Dim intRow As Integer
Dim intColumn As Integer
Dim strControlName As String

DoCmd.OpenForm "BingoTafel_Beamer", acDesign, , , acFormEdit, acWindowNormal
 
'jetzt Klickereignis füllen
For intRow = 1 To 10
    For intColumn = 1 To 10
        strControlName = "lblNumber" & Format(intRow, "00") & Format(intColumn, "00")
       Forms!BingoTafel_Beamer.Controls(strControlName).OnClick = "= DisplayMonth(" & Chr(34) & strControlName & Chr(34) & ")"
    Next
Next
    DoCmd.Close acForm, "BingoTafel_Beamer", acSaveYes
End Sub

Suboptimierer

13.10.2014, 15:21

Sehr elegante Lösung. Wenn ich könnte, würde ich dir den Stern geben. :)

Ähnliche Beiträge

Kann man den Benutzernamen in einem UserForm Label angeben, der das Dokument geöffnet hat?

Hi, ich liebe Herausforderungen und komme auch nach und nach weiter. Nun habe ich diese Funktion welche prüft, ob eine bestimmte Datei geöffnet ist:

Public Function IsFileOpen(FileName As String)
    Dim filenum As Integer, errnum As Integer
    On Error Resume Next
    filenum = FreeFile()
    Open FileName For Input Lock Read As #filenum
    Close filenum
    errnum = Err
    On Error GoTo 0
    Select Case errnum
    Case 0
    IsFileOpen = False
    Case 70
    IsFileOpen = True
    Case Else
    Error errnum
    End Select
End Function

Mit dieser Funktion kann ich arbeiten, wenn das Dokument von wem auch immer geöffnet ist, öffnet sich eine UserForm.

Nun möchte ich gerne mit dieser Funktion ermitteln, welcher Benutzer das Dokument geöffnet hat:

Public Function LastUser(strPath As String) As String
    Dim strXl As String
    Dim strFlag1 As String, strflag2 As String
    Dim i As Integer, j As Integer
    Dim hdlFile As Long
    Dim lNameLen As Byte
   
    strFlag1 = Chr(0) & Chr(0)
    strflag2 = Chr(32) & Chr(32)
   
    hdlFile = FreeFile
    Open strPath For Binary As #hdlFile
        strXl = Space(LOF(hdlFile))
        Get 1, , strXl
    Close #hdlFile
   
    j = InStr(1, strXl, strflag2)
   
    #If Not VBA6 Then
        '// Xl97
        For i = j - 1 To 1 Step -1
            If Mid(strXl, i, 1) = Chr(0) Then Exit For
        Next
        i = i + 1
    #Else
        '// Xl2000+
        i = InStrRev(strXl, strFlag1, j) + Len(strFlag1)
    #End If
   
    '// IFM
    lNameLen = Asc(Mid(strXl, i - 3, 1))
    LastUser = Mid(strXl, i, lNameLen)
End Function

Aber das klappt nicht...

Ich habe es mit diesem Code probiert und diesen an meinen Pfad und das Dokument angepasst:

Private Sub TestVBA()
'http://www.xcelfiles.com/IsFileOpenVBA.htm
'// Just change the file to test here
Const strFileToOpen As String = "C:\Data.xls"
If IsFileOpen(strFileToOpen) Then
MsgBox strFileToOpen & " is already Open" & _
vbCrLf & "By " & LastUser(strFileToOpen), vbInformation, "File in Use"
Else
MsgBox strFileToOpen & " is not open", vbInformation
End If
End Sub

Bekomme immer Fehler 52.

Ich würde aber gerne den Benutzernamen auch später in der UserForm (anstatt einer MsgBox) im Label anzeigen, was ich ebenfalls nicht hinbekomme.

Weiß jemand, wie ich den Benutzernamen ermittel, der das Dokument geöffnet hat und ich diesen dann in den Label-Text einbauen kann? Oder geht das nicht?

Vielen herzlichen Dank im Voraus.

...zum Beitrag

Excel Vba Wert in Bereich prüfen?

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

...zum Beitrag

vbs msgbox script funktioniert nicht?

x=MsgBox("hello",vbyes,"status")

if vbyes then

End If

Das is mein code. ich würde gerne das sich per click auf yes eine internet seite öffnet

...zum Beitrag

Weshalb werden denn die Zahlen immer wieder angezeigt?

Hallo, weshalb werden in folgendem Code beim ersten Aufruf 1*3 angezeigt und beim nächsten mal 11*33? Der Wert ist doch jedes mal gleich? Danke

var parentElement = document.getElementById("test");
parentElement.addEventListener("click", calculate);
function calculate(e){
var childElement = e.target;
var test = childElement.innerHTML;
var result = 1 + test + 3;
childElement.innerHTML = result;
}

...zum Beitrag

Unerwartetes Dateiende in BASH Script?

Hallo,

In meinem Bash Programm wird beim Compilen "Unerwartetes Dateiende" angezeigt.

Woran liegt das ?

CODE:

#!/bin/bash
# Functions
function pingpass(){
   dialog --msgbox "Ping Successfull ! -> Host is Online !"
   sleep 4
   dialog --clear
   logonconf
}
function pingfail(){    dialog --msgbox "Ping Failed ! -> Host is Offline !"    sleep 4    dialog --clear    dialog --msgbox "Programm Terminated because of an Error !" }
function logoncof(){    dialog --title "RDP Logon Srcipt" --yesno "Please confirm your choosen Option:\n $logon" 0 0 }

Main
logon=
dialog --title "RDP Logon Srcipt" --menu "Please choose a Server to Logon !" 0 0 0 \
&nbsp;"Linux1" "" "Linux2" "" "Linux3" "" 3&gt;&amp;1 1&gt;&amp;2 2&gt;&amp;3
 dialog --clear

if [$logon = "Linux1"]
   then
      ping -c1 192.168.2.1 > /dev/null
      if [ $? -eq 0 ]
    then 
   pingpass
    else
   pingfail
fi

...zum Beitrag

JS Eventlistener mit Callback Parameter?

Hi, ich mache derzeit das Odins Project und hänge rein vom Verständnis an einem Code-Beispiel fest.

btn.addEventListener('click', function (e) {
  console.log(e);
});

btn.addEventListener --> schauen ob ein Event eintritt und dann eine function ausführen

"click"--> wenn der Button angeklickt wird

function (e)--> hier ist das Problem. ich versehe, dass es eine anonyme callback Funktion ist, aber nicht wieso sich der Parameter e auf den Button bezieht und ich damit den Button ansteuern kann. Versuche es seit 2 Tagen zu verstehen und bitte um eine einfache Erklärung. Im Internet steht, dass das ein Objekt vom EventListener ist aber darunter kann ich mir auch nicht wirklich etwas vorstellen.

...zum Beitrag

[VBA] - Multipage Userform eingaben in Excel übertragen?

Servus Leute,

Ich habe ein Userform in Excel mit Multipage erstellt.

Nun möchte ich auf der letzten Multipage Seite einen Button einbauen. Auf Knopfdruck sollen dann alle Eingaben die vom User auf den einzelnen Multipageseiten gemacht worden sind in ein Excel Tabellenblatt übertragen werden.

Mein Ansatz war dem Button folgenden Code zu geben:

    Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
    If CheckBox1.Value Then
      sheet2.Cells(maxRow2 + 1, 9).Value = "ja"
      Else
        sheet2.Cells(maxRow2 + 1, 9).Value = "nein"
        End If
              sheet2.Cells(maxRow2 + 1, 13).Value = TextBox4.Value

Das funktioniert leider nicht wie ich es mir erhofft habe, auf Knopfdruck werden keine Daten übertragen. Ich habe die vermutung, dass nicht auf die Felder wie z.B. TextBox4 zugegriffen werden kann, weil die auf einer anderen Seite im Multipage sind.

Wie schaffe ich es an die Variablen ranzukommen. Ich hatte noch überlegt, im Code der jeweiligen Seite den Wert aus der Textbox in eine Variable zu setzen, die z.B. Global ist. Aber da bin ich auch schon wieder überfragt wie man das macht.

Außerdem habe ich noch eine Frage zu den Checkboxen.

Es soll folgende Möglichkeiten geben:

Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
Wenn Checkbox angeklickt ist und variable x befüllt, dann kann man zur nächsten Kategorie (Nächste Seite im Multipage)

Für eine Checkbox habe ich das schon hinbekommen, aber wie mach ich das wenn es mehrere Checkboxen gibt. Weil ich glaube wenn ich das so mache wie bisher, dann wird das eine endlose anreihung von if bedingungen.

Diesen Code habe ich dann auf den Button gelegt, mit dem man zur nächsten Kategorie kommen soll oder eben halt nicht.

  Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
   
    If CheckBox3.Value Then
    If Test = False Then
    MsgBox ("Kein Pfad angegeben")
    Else
  Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
    End If
    Else
    Dim iNextPage2 As Long
    With Me.MultiPage1
        iNextPage2 = .Value + 1
        If iNextPage2 < .Pages.Count Then
            .Pages(iNextPage2).Visible = True
            .Value = iNextPage2
        End If
    End With
    End If

Und als letztes würde ich gern noch wissen ob es möglich ist, zu unterbinden, dass der User oben im Multipage die Kategorie direkt anklicken kann und man halt nur über den "weiter" button zur nächsten kategorie kommt.

Gruß Chris

...zum Beitrag

Wo ist der Fehler im Code (VBA PowerPoint)?

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

...zum Beitrag

JavaScript EventListener funktioniert nicht richtig?

Mein JS-Code:

'use strict'

let lines = document.getElementsByClassName("src-line");
let activeLine = -1;

for (let i1 = 0, i2 = lines.length; i1 < i2; i1++) {
  lines[i1].addEventListener("mouseover", function(){
    lines[i1].style.cursor = "text";
  });
  lines[i1].addEventListener("click", function(){
    activeLine = i1;
    console.log(activeLine);
  });
}
addEventListener("keydown", keypressed(e));

function keypressed(e) {
  if (activeLine != -1) {
    if (e.key == "Backspace") {
      console.log("Backspace");
      ediText[activeLine] = ediText[activeLine].substring(0, ediText[activeLine].length - 1);
    }
    else if (e.key == "Tab") {
      ediText[activeLine] += "&nbsp;&nbsp;&nbsp;&nbsp;";
    }
    else if (e.key == "Shift") {
      return;
    }
    else if (e.key == "Space") {
      ediText[activeLine] += "&nbsp;";
    }
    else {
      ediText[activeLine] += e.key;
    }

    console.log(e.key)
    charCompiler(ediText);
  }

  return 0;
};

Wenn ich nun auf ein Element mit der Klasse src-line klicke, wird in der Konsole immer der Listenindex angezeigt. Ich habe momentan zwei, also zeigt es immer 0 oder 1 an.

Wenn ich jetzt allerdings anfange, Buchstaben einzugeben, wird das zuletzt angeklickte Element verändert. Jedoch kann ich jetzt nicht mehr das Element wechseln, denn klicke ich jetzt auf das andere Element, wird das click-Event nicht mehr aufgerufen. D.h. activeLine wird nicht mehr geändert. Ich habe keinen Plan, warum.

Ist evtl. am Code was falsch, weil ich habe keine Ahnung warum das click-Event nach dem keydown einfach ignoriert wird, obwohl es davor ja noch ging. Btw wird auch in der Konsole beim Klicken danach nichts mehr angezeigt.

...zum Beitrag

addEventListener nacheinander für mehrere Elemente?

Hi,

ich versuche eine Art Notitzen-App zu coden. Es gibt also eine Seitenleiste in der die verschiedenen Notizen zu sehen sind und wenn diese angeklickt werden, soll der jeweilige Text in der großen textarea angezeigt werden. Bisher habe ich einen Zähler als Variable, der beim Hinzufügen einer neuen Notiz erhöht wird, so wird für jeden neuen Button eine eigene ID erstellt und ich speichere auch alle Notizen in einem Array und kann diese anzeigen lassen. Allerdings muss ich zu jedem Button ein onclick-Element mit der jeweiligen Notiz als Parameter hinzufügen, um sie anzeigen zu können. Das mache ich mit addEventListener. Aber wenn ich einfach document.getElementById(idNames[field]).addEventListener("click", function(){showNotice(toShow)}); verwende, funktioniert der Listener nur für die als letztes hinzugefügte Notitz, wenn ich idNames.forEach(element => document.getElementById(element).addEventListener("click", function(){showNotice(toShow);})) zeigen alle Button beim Klicken natürlich dieselbe Notiz an.

Weiß jemand, was in meinen Fall zu tun ist?

...zum Beitrag

Wie kann man bei Visual Basic einen Zufallsgenerator erstellen, der zufällige Funktionen durchführt?

Sehr geehrte Nutzer, ich habe ein Visual Basic Programm erstellt, dass unter anderem zufällige Funktionen durchführen soll. Zufällige Formen sollen dargestellt werden (form2.show, me.hide) Mein bereits erstellter Code ist: Dim random As New System.Random Function zufall() Select Case random.Next(0, 1) Case "0" Return form2.Show Me.Hide() Case "1" Return form3.show me.hide() End Select End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click label1.text = (zufall()) End Sub

Hat jemand Verbesserungsvorschläge für diesen Code? Ich denke mal das "Return" ist falsch aber Warum? Wenn es jemand weiß bitte sofort melden. Danke im Vorraus.

...zum Beitrag

JavaScript: trigger() wird nicht ausgelöst?

Hi zusammen,

ich versuche mit JavaScript ein paar input-Felder zu validieren.

Leider wird die Seite nicht abgeschlossen, nachdem alle Felder befüllt wurden.
Hat jemand eine Idee?

Ich muss immer, nachdem alle Felder befüllt sind, nochmals in irgendein input-Feld klicken, damit es geht.

Hier mein Code:

$(document).ready(function() {
  $('input').on('click',function() {
    // Validation
    var vorname_firma = $("input[name='vorname']").val();
    var strasse = $("input[name='strasse']").val();
    var plz = $("input[name='plz']").val();
    var ort = $("input[name='ort']").val();

    if (vorname_firma != "" && strasse != "" && plz != "" && ort != "") {
      $(function() {
        $('#tab3').trigger("click");
      });
    }
  });
});

...zum Beitrag

Java script if Abfrage zur Überprüfung eines leeren Feldes?

Hallo,

im folgenden ist ein Code, der beim Click auf einen Button überprüfen soll, ob das Feld mit dem Namen Mailadresse leer ist. Warum funktioniert Variante 1, aber Variante 2 nicht?

Variante 1

const Buttons=document.getElementById('Buttons'),

Mailadresse=document.getElementsByName('Mailadresse');

Buttons.addEventListener('click',pruefen);

function pruefen () {

if (Mailadresse.value == null) { window.alert ("Bitte alle Pflichtfelder ausfüllen")}

};

Variante 2

const Buttons=document.getElementById('Buttons'),

Mailadresse=document.getElementsByName('Mailadresse');

Buttons.addEventListener('click',pruefen);

function pruefen () {

if (Mailadresse.value == 0) { window.alert ("Bitte alle Pflichtfelder ausfüllen")}

};

Über eine hilfreiche Antwort würde ich mich sehr freuen.

...zum Beitrag

Warum über JavaScript Events?

man kann ja in seinen html code onclick oder was auch immer für ein Event hinschreiben.

ich sehe trotzdem bei vielen Profis immer das hier

Html : 

<body>
<button id='MeinButton'>Senden</button>
</body>

js: 

document.querySelector('#MeinButton').addEventListener('click', MeineFunktion);

function MeineFunktion(){
event.preventDefault();
Alert(1);
}

einfacher wäre das hier

<body>
<button onclick='MeineFunktion();' id='MeinButton'>Senden</button>
</body>
function MeineFunktion(){
event.preventDefault();
Alert(1);
}

Und wieso muss man prevent default hinschreiben ?
Was genau macht der browser denn by default / standardmäßig das es sonst nicht funktioniert ?

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen