Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufruf eines subs funktioniert nicht

Aufruf eines subs funktioniert nicht
07.09.2004 09:28:44
Andy
Guten Morgen!!
Ich habe ein Commandbutton in einem TAbellenblatt. wird der Button betätigt wird zuerst geprüft ob in versch. Checkboxen aktiviert wurden (verschachtelte If then Else anweisungen). Diese Prüfung funktioniert, jedoch funktioniert dann der aufruf eines weiteren sub nicht. wenn ich mir aber die prozeduren als einzelschitte anschaue funktioniert alles. woran kann dies liegen?
ich habe versucht:
application.run "bestaetigen" und mit
call bestaetigen
Gruß
Andy

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufruf eines subs funktioniert nicht
07.09.2004 09:52:01
Tobias
Poste doch einfach mal den Code plz....
AW: Aufruf eines subs funktioniert nicht
07.09.2004 10:02:54
Andy
Hier die codes..
der 

Private Sub wird durch klick aufgerufen. dann der sub "Wahl_kontrolle", welcher eigentlichfunktioniert. jedoch funktioniert der prozeduraufruf am ende des subs nicht.
erklärung zu sub "wahl_kontrolle":
Erst wenn mind ein zeitraum, mind eine investitionsart und mind ein bereich gewählt wurd, soll sub "druck_anzeigen" aufgerufen werden.


Private Sub CommandButton1_Click()
Application.Run "Wahl_kontrolle"
End Sub



Sub Wahl_kontrolle()

If Sheets("Druck_Wahl").CheckBox1 = False And Sheets("Druck_Wahl").CheckBox2 = False And Sheets("Druck_Wahl").CheckBox3 = False And Sheets("Druck_Wahl").CheckBox4 = False Then

    MsgBox "Sie haben keinen Zeitraum ausgewählt !"

    Else:

        If Sheets("Druck_Wahl").CheckBox5 = False And Sheets("Druck_Wahl").CheckBox6 = False And Sheets("Druck_Wahl").CheckBox7 = False Then

            MsgBox "Sie haben keine Investitionsart gewählt !"

            Else:

                If Sheets("Druck_Wahl").CheckBox8 = False And Sheets("Druck_Wahl").CheckBox9 = False And Sheets("Druck_Wahl").CheckBox10 = False And Sheets("Druck_Wahl").CheckBox11 = False And Sheets("Druck_Wahl").CheckBox12 = False Then

                    MsgBox "Sie haben keinen Bereich ausgewählt !"

                    Else:

                        Application.Run "Druck_anzeigen"

                End If

        End If

End If

End Sub

Andy
Anzeige
AW: Aufruf eines subs funktioniert nicht
07.09.2004 16:53:34
Nepumuk
Hallo Andy,
setze in den Eigenschaften des Button - TakeFokusOnClick - auf False.
Gruß
Nepumuk
AW: Aufruf eines subs funktioniert nicht
07.09.2004 17:40:39
Andy
Danke Nepumuk, aber daran liegt es nicht.
wenn ich die zusammenhängenden subs mit einzelschritten durchgehen gibt es keine Fehler.
Wird das ursprungssub jedoch durch den button aufgerufen, sieht es so aus als ob teiel eines Subs übersprungen werden.
Andy
AW: Aufruf eines subs funktioniert nicht
07.09.2004 17:47:20
Nepumuk
Hallo Andy,
lade mal die Mappe auf den Server. Daten müssen nicht drin sein und lösche alle Tabellen außer der mit dem Button.
Gruß
Nepumuk
AW: Aufruf eines subs funktioniert nicht
08.09.2004 10:31:49
Andy
Guten Morgen!
Hier die Tabelle mit dem Button und den dazu gehörigen Subs. (die anderen Tabellenblätter habe ich gelöscht)
https://www.herber.de/bbs/user/10654.xls
Andy
Anzeige
AW: Aufruf eines subs funktioniert nicht
08.09.2004 11:44:13
Nepumuk
Hallo Andy,
ich finde nur einen Fehler in Makro "eingeblendete_kopieren". Dort verweist das Cells - Objekt auf die falsche Tabelle. Die Tabelle "Status" ist nicht die aktive Tabelle, du schreibst aber:
Set rng = Sheets("Status").Range(Cells(15, 1), Cells(e, 7)).Cells.SpecialCells(xlCellTypeVisible)
Damit verweist das Range auf die Tabelle Status, das Cells - Objekt auf die aktive Tabelle, nämlich "Druck_Wahl". So sollte es funktionieren:
With Sheets("Status")
e = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'd = e - 15 'Anzahl der neuen Investitionen wird berechnet

Set rng = .Range(.Cells(15, 1), .Cells(e, 7)).Cells.SpecialCells(xlCellTypeVisible)
End With
Beachte die Punkte vor Range und Cells. Versuch es mal.
Gruß
Nepumuk
Anzeige
AW: Aufruf eines subs funktioniert nicht
08.09.2004 12:22:38
Andy
Vielen Dank.
Das kopieren klappt jetzt einwandfrei.
jedoch wird alles kopiert, da die nicht ausgeählten Buttons (Zeilen) nicht ausgeblendet werden.
Andy
es klappt jetzt
08.09.2004 14:27:06
Andy
nocjmal danke. ich habe jetzt den anderen fehler gefunden.
im sub "Druck_zeigen" hat am beginn der behl "Sheets("Status").select" gefehlt
Gruß
Andy

301 Forumthreads zu ähnlichen Themen

Suchen (STRG+F) einstellen
jens

Hallo Excel-Freunde,
Wie lautet das Makro, mit dem ich bei der Suchen -Funktion (STRG+F) die Voreinstellung Gesamten Zellinhalt vergleichen- ausschalten kann?
Viele Grüße
Jens
12.08.2008 18:38:36
Thread-ID: 1001291
12 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Anzeige
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

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
11
3
5
2
2
6
7
6
6
1
3
7
2
4
1
8
3
1
5
2
1
8
7
3
5