Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung in einer Function

Prüfung in einer Function
03.10.2008 20:31:00
Peter
Hallo
brauche mal wieder Hilfe
Mit einem CommandButton starte ich eine Function für unterschiedliche Berechnungen.
Die Daten werden über Comboboxen eingeben.
wenn die Comboboxen leer sind läuft meine Function auf Fehler.
Mit diesem Code klappt das leider nicht in einer Function auch mit end der exit funktion auch nicht
If ComboBox8 = "" Then MsgBox "xx!", vbCritical, "xx": ComboBox8.SetFocus: Exit Sub
Hat vielleicht jemand eine Idee
Gruß Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung in einer Function
03.10.2008 22:57:15
Tino
Hallo,
So läuft Deine Funktion zumondest Fehlerfrei durch.
'Functionen stehen in der Regel in einem Modul.
'Ist Deine ComboBox auf einem Tabelleblatt, musst du dieses voranstellen.
If Tabelle1.ComboBox1 = "" Then
MsgBox "xx!", vbCritical, "xx"
Else
' Dies funktioniert in einer Function nicht,
' zumindest bei mir nicht.
'Ergibt aber auch keinen Fehler
Tabelle1.ComboBox1.SetFocus: Exit Function
End If
Gruß Tino
AW: Prüfung in einer Function
04.10.2008 17:56:00
Peter
Hallo Tino
meine Combobox ist in einer Userform
Irgendwie klappt das nicht.
Habe mir eine ander Prüfung aus gedacht
Jetzt ist nur das Problem, wenn die Inputbox keinen Eintrag bekommt läuft die Function auf Fehler.

Private Sub CommandButton11_Click()
If ComboBox18 = "" Then
ComboBox18 = InputBox("Bitte Bruttolohn eintragen!")
End If
Call Gehaltsrechner 'Function
End Sub


Anzeige
AW: Prüfung in einer Function
04.10.2008 18:46:31
Tino
Hallo,
so müsste es gehen.
Private Sub CommandButton11_Click()
Dim strWert As String
  With ComboBox18
    If .Value = "" Then
        
Nochmal:
         strWert = InputBox("Bitte Bruttolohn eintragen!")
         If strWert = "" Then
          
          If MsgBox("Sie haben nichts eingegeben! Programm abbrechen?", vbYesNo) = vbYes Then
           Exit Sub
          Else
           GoTo Nochmal:
          End If
         
         End If
         .AddItem strWert
         .ListIndex = .ListCount - 1

    End If
 End With
Call Gehaltsrechner 'Function 

End Sub


Gruß Tino

Anzeige
AW: Prüfung in einer Function
04.10.2008 19:49:24
Peter
Hallo Tino
jetzt klappt das super
vielen Dank für deine Hilfe
Gruß Peter

302 Forumthreads zu ähnlichen Themen

2 Bedingungen - ZÄHLENWENN
Toby

Hi!
Unten meine aktuelle Formel. Nun möchte ich aber, daß Excel zählen soll, wenn es ungleich X und ungleich Leerfeld ist.
Oder er soll nur dann zählen, wenn eine Zahl drin steht.
=ZÄHLENWENN(C3:AJ3;"X")
Bestimmt leicht für euch ...
Danke, Toby ...
10.08.2008 18:26:00
Thread-ID: 1000661
4 Beiträge
Anzeige
Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
HÄUFIGKEIT - F9 bringt 2 unterschiedl. Ergebnisse
{Boris}

Hi Leute,
bin grad etwas irritiert. Ich werte die Formel
=HÄUFIGKEIT({1.2.3.4.5.5};{5.3.2.2})
in der Bearbeitungsleiste mit F9 aus. Da bekomme ich 2 unterschiedliche Ergebnisse, mal so und mal so, in völlig wirrer und nicht nachvollziehbarer Abfolge:
1. das erwartete Ergebnis:
06.09.2008 12:40:00
Thread-ID: 1007832
8 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
1
5
2
3
8
1
7
1
1
9
4
2
2
4
3
4
2
9
3
4
4
10
2