Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Aufruf eines subs funktioniert nicht

Betrifft: Aufruf eines subs funktioniert nicht von: Andy
Geschrieben am: 07.09.2004 09:28:44

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

  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Tobias
Geschrieben am: 07.09.2004 09:52:01

Poste doch einfach mal den Code plz....


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Andy
Geschrieben am: 07.09.2004 10:02:54

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


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Nepumuk
Geschrieben am: 07.09.2004 16:53:34

Hallo Andy,
setze in den Eigenschaften des Button - TakeFokusOnClick - auf False.
Gruß
Nepumuk


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Andy
Geschrieben am: 07.09.2004 17:40:39

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


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Nepumuk
Geschrieben am: 07.09.2004 17:47:20

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


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Andy
Geschrieben am: 08.09.2004 10:31:49

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


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Nepumuk
Geschrieben am: 08.09.2004 11:44:13

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


  


Betrifft: AW: Aufruf eines subs funktioniert nicht von: Andy
Geschrieben am: 08.09.2004 12:22:38

Vielen Dank.
Das kopieren klappt jetzt einwandfrei.
jedoch wird alles kopiert, da die nicht ausgeählten Buttons (Zeilen) nicht ausgeblendet werden.

Andy


  


Betrifft: es klappt jetzt von: Andy
Geschrieben am: 08.09.2004 14:27:06

nocjmal danke. ich habe jetzt den anderen fehler gefunden.
im sub "Druck_zeigen" hat am beginn der behl "Sheets("Status").select" gefehlt

Gruß
Andy


 

Beiträge aus den Excel-Beispielen zum Thema "Aufruf eines subs funktioniert nicht"