Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderungen der Zellmarkierungen übergeben

Änderungen der Zellmarkierungen übergeben
Uwe
Hi,
ich bin noch sehr grün hinter den Ohren, was den Umgang mit VBA für Excel betrifft. Nichts desto trotz ist an die Lösung eines Problemes mit Excel-VBA am besten, so dass ich Euch jetzt mit einer Frage belästigen muss.
Ich habe ein UserForm gebaut, welches mir von den im Vorfeld ausgewählten Zellen einen Grubbs-Ausreißertest macht und das Ergebniss im UserForm selber niederschreibt. Dazu bestimmt ich die ausgewählten Zellen mit "ActiveWindow.RangeSelection.Address".
Jetzt wähle ich aber während das UserForm läuft, neue Zellen aus und möchte gerne, dass damit auch das UserForm sofort aktualisiert wird, wenn die Maus losgelassen wird. Bisher funktioniert es nur, wenn ich ein anderes Optionsfelder auswähle, weil in diesem Fall grubbs(90) bzw. grubbs(95) oder grubbs(99) [entsprechend dem Signifikanzniveau] erwählt wird. Ich möchte aber nur ungerne klicken müssen! Hat jemand eine Idee, wie ich das hinbekomme?
Danke,
Uwe
AW: Änderungen der Zellmarkierungen übergeben
15.08.2009 19:16:26
Hajo_Zi
Hallo Uwe,
versuche es über das Ereignis Private Sub Worksheet_SelectionChange(ByVal Target As Range)
unter der Tabelle.

AW: Änderungen der Zellmarkierungen übergeben
15.08.2009 19:27:46
Uwe
Hi, erst mal Danke für die Fixe Antwort. Aber wie stelle ich es an?
Wie kann ich damit die Änderungen vergleichen? Hättest du einen Codesnipsel für mich?
Danke,
Uwe
AW: Änderungen der Zellmarkierungen übergeben
15.08.2009 19:29:38
Hajo_Zi
Hallo Uwe,
im ersten Beitrag wolltest Du eine Reaktion auf das markieren.
Ich sehe Deine Datei nicht und darum sehe ich auch nicht wie Du die erste Berechnung in der UserForm machst.
Gruß Hajo
Anzeige
AW: Änderungen der Zellmarkierungen übergeben
15.08.2009 19:41:29
Uwe
Hi,
ich rufe die Berechnung folgendermaßen auf (Standard 99% Signifikanz):
Private Sub UserForm_Initialize()
Grubbs (99)
End Sub
Grubbs berechnet alles über "MyRange" und sorgt für die Darstellung durch Manipulation der Labels.
Sub Grubbs(Niv)
MyRange = ActiveWindow.RangeSelection.Address
n = WorksheetFunction.Count(Range(MyRange))
'[...]
lblMW.Caption = "Mittelwert: " & CStr(Application.WorksheetFunction.Round(MW, 5))
lblPW.Caption = "Prüfwert: " & CStr(Application.WorksheetFunction.Round(PG, 5))
lblSA.Caption = "Standardabweichung: " & CStr(Application.WorksheetFunction.Round(STABWN, 5))
End Sub
Ich stelle die ganze Funktion nicht dar, da es mit dem Problem nicht zu tun hat. Ich hoffe, dass reicht dir aus. Für Infos werde ich immer dankbarer :-)
Danke!
Anzeige
AW: Änderungen der Zellmarkierungen übergeben
15.08.2009 19:44:09
Hajo_Zi
Haló Uwe,
dann rufe doch bei dem Ereignis auch Grubbs (99) auf
Gruß Hajo
SelectionChange und UserForm
15.08.2009 20:47:08
Erich
Hi Uwe,
in der angehängten BeispielMappe kannst du sehen, wie man so etwas im Prinzip machen könnte:
https://www.herber.de/bbs/user/63857.xls
Natürlich fehlt darin u. a. die direkte Reaktion auf die OptionButtons - das hast du bei dir schon drin.
Hier geht es nur darum, wie du durch Select-Änderung deine Userform neu berechnen kannst.
Die Public-Variable habe ich eingeführt, damit das Makro nicht läuft, wenn die UF nicht angezeigt wird.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: SelectionChange und UserForm
15.08.2009 22:07:57
Uwe
Hallo Erich,
das funktioniert schon einmal wie ich es mich erwünscht habe. Danke! Nur eine Frage habe ich noch: Kann ich das auch in das Modul der Datei oder den Code des USerForms auslagern? Ich werde das Programm als Add-In verwenden.
Aber sonst, fluppt es Tipp-Topp!
Danke,
Uwe
AW: SelectionChange und UserForm
16.08.2009 13:31:57
Uwe
hi,
ich habe das Problem über ein Klassenmodul, welches beim Start der Datei geladen und ausgeführt wird, gelöst.
Funktioniert einwandfrei. Speziell an Erich vielen Dank, dein Beispiel hat mir den entsprechenden Denkanstoß gegeben!
Dank f. Rückmeldung! "VBA bescheiden"? ;-) (owT)
16.08.2009 13:45:52
Erich

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Links zu Excel-Dialogen

Label OptionButton

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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
6
2
10
2
4