Stichprobenziehung mit Excel

In der Sozialforschung ist es meistens aus Zeit- und Kostengründen nicht realisierbar, in eine geplante Erhebung die gesamte Population zu integrieren (Vollerhebung).

Daher wird mit Stichproben gearbeitet (Teilerhebung). Wenn Du eine statistische Erhebung durchführen willst, wählst Du zufällig Dinge aus, stellst Fragen und notierst Antworten.

Eine Stichprobe ist die Menge der Dinge, die ausgewählt wird. Stichproben stellen eine Teilmenge aller Untersuchungseinheiten dar, welche die für das Forschungsziel relevanten Eigenschaften der Grundgesamtheit möglichst genau abbilden.

Der Stichprobenumfang ist die Anzahl dieser Dinge.

Der Beitrag zeigt, wie mit Excel aus der Menge der erfassten Daten eine Stichprobe zu ziehen.

„Stichprobenziehung mit Excel“ weiterlesen

VBA-Methoden: Arbeitsblätter verschieben und umbenennen

Am Ende des letzten Beitrags enthielt die Arbeitsmappe mehrere Arbeitsblätter, die allerdings nicht in einer gewünschten /  logischen Reihenfolge angeordnet waren.

Eine gewünschte Reihenfolge kannst Du nun herstellen, indem Du die Arbeitsblätter verschiebst.

1. Arbeitsblätter verschieben

Fürs Verschieben verwendest Du in VBA die Methode „Move“ und die Argumente „Before“ und „After“.

Die Endmappe des letzten Beitrags enthielt Arbeitsblätter in dieser Reihenfolge:

Tabelle2, Tabelle1, Tabelle3, Tabelle5, Tabelle4

Mit folgendem Code bringst Du mit einem Makro alle Arbeitsblätter in die richtige Reihenfolge:

Sub ArbBlattVerschieben()

Worksheets(„Tabelle1“).Move Before:=Worksheets(„Tabelle2“)

Worksheets(„Tabelle5“).Move After:=Worksheets(„Tabelle4“)

End Sub

VBA Blatt5

2. Arbeitsblätter umbenennen

Die Arbeitsblätter werden jetzt standardmäßig nur mit „Tabelle1“ bis „Tabelle5“ bezeichnet.

Du willst sie aber mit Monatsnamen benennen, Januar bis Mai.

Mit dem folgenden Code erhalten alle fünf Arbeitsblätter einen neuen Namen:

Sub ArbBlattUmbenennen()

Worksheets(„Tabelle1″).Name=“Januar“

Worksheets(„Tabelle2″).Name=“Februar“

Worksheets(„Tabelle3″).Name=“März“

Worksheets(„Tabelle4″).Name=“April“

Worksheets(„Tabelle5″).Name=“Mai“

End Sub

VBA Blatt6

Die Arbeitsblätter haben jetzt alle den gewünschten Namen erhalten.

VBA-Methoden: Ein neues Arbeitsblatt erstellen und einfügen

Es kann innerhalb einer VBA-Prozedur erforderlich werden, in einer Arbeitsmappe ein weiteres Arbeitsblatt einzufügen und ggf. namentlich zu benennen.

Eine neues Arbeitsblatt zu erstellen, erfordert nur eine Codezeile.

Sub NeuesArbBlatt1()
Worksheets.Add
End Sub

Das ist schon alles. Vor dem aktuellen Arbeitsblatt wird das neue eingefügt.

VBA Blatt1

Dir gefällt nicht, dass das neue Blatt an vorderster Stelle eingefügt wurde.

Mit dem Argument „After“ veranlasst Du, dass das neue Blatt nach einem vorhandenen eingefügt wird.

Sub NeuesArbBlatt2()
Worksheets.Add After:=Worksheets(„Tabelle1“)
End Sub

VBA Blatt2

Um ein neues Arbeitsblatt vor einem vorhandenen Blatt einzufügen, verwendest Du das Argument „Before“.

Sub NeuesArbBlatt3()
Worksheets.Add Before:=Worksheets(„Tabelle3“)
End Sub

Hierzu erspare ich uns die Abbildung.

Du kannst ein neues Arbeitsblatt auch grundsätzlich an letzter Stelle einfügen.

Verwende dazu diesen Code:

Sub NeuesArbBlatt4()
Worksheets.Add After:=Worksheets(Worksheets.Count)
End Sub

Der Vollständigkeit halber, Du kannst auch gleich mehrere neue Arbeitsblätter einfügen. Dazu verwendest Du das Argument „Count“.

Sub NeuesArbBlatt5()
Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=2
End Sub

VBA Blatt3

Mit „Count:=2“ hast Du Dich für zwei weitere Blätter entschieden. Die Blätter „Tabelle5“ und „Tabelle4“ wurden hinter den vorhandenen neu eingefügt.

Du kannst den Blättern jetzt manuell andere Namen geben oder Du wartest auf den nächsten Beitrag zu den VBA-Methoden.

SVERWEIS mit zwei Suchkriterien

Die Anwendung der Excel-Funktion SVERWEIS mit einem Suchkriterium ist allgemein bekannt.

Hast Du jedoch den Wunsch, einen Wertebereich nach zwei Suchkriterien abzufragen, geht das mit der Standardfunktion nicht.

Der Beitrag soll Dir einen Weg aufzeigen.

„SVERWEIS mit zwei Suchkriterien“ weiterlesen

VBA: Das Steuerelement OptionButton

Der OptionButton (Optionsfeld) ist eine Steuerelement aus den ActiveX-Steuerelementen.

Verwende ein OptionButton, um anzuzeigen, ob ein einzelnes Element innerhalb einer Gruppe ausgewählt wurde.

Du willst beispielsweise mit ausgewählten Werten aus der folgenden Liste wahlweise in zwei Verfahren rechnen.

OptionButton1

Einerseits sollen die Werte aus B26 und B28 subtrahiert werden, wenn ein OptionButton aktiv ist.

Andererseits sollen die Werte in B27 und B29 multipliziert werden, wenn ein zweiter OptionButton aktiv ist.

Füge zunächst zwei OptionButton in Dein Arbeitsblatt ein. Gehe dazu im Menü „Entwicklertools“ auf „Einfügen“ und wähle den OptionButton bei den ActiveX-Steuerelementen.

OptionButton2

Aktiviere danach eine Zelle Deines Arbeitsblattes, um das Steuerelement einzufügen.

Um den Hintergrund farbig zu gestalten, schaltest Du unter den „Entwicklertools“ in den „Entwurfsmodus“ und rufst „Eigenschaften“ auf.

Wähle unter „BackColor“ eine Farbe aus.

OptionButton3

Beide OptionButton stehen nun zur Verfügung.

OptionButton4

Die Berechnungsergebnisse sollen rechts daneben, in den Zellen D2 bzw. D4 ausgegeben werden.

Eröffne das Makro mit z.B. Sub OptionRechnen() in einem Modul.

Deklariere nun zuerst die Variablen für Dein Makro.

Dim Subtraktion As Long

Dim Multiplikation As Long

Weise ihnen Werte zu.

Subtraktion = Range(„B7“).Value – Range(„B9“).Value

Multiplikation = Range(„B8“).Value * Range(„B10“).Value

Weise nun an, was geschehen soll, wenn der OptionButton1 aktiv ist. Das machst Du mit einer If-Anweisung. Die Anweisung lautet, die definierte Subtraktion auszuführen und gleichzeitig das Ergebnisfeld für OptionButton2 zu leeren.

If Worksheets(„Tabelle1“).OptionButton1.Value = True Then

Range(„D2“) = Subtraktion

Range(„D4“).ClearContents

Weise dann an, was geschehen soll, wenn der OptionButton2 aktiv ist. Hier lautet die Anweisung, die definierte Multiplikation auszuführen und das Ergebnisfeld für OptionButton1 zu leeren.

ElseIf Worksheets(„Tabelle1“).OptionButton2.Value = True Then

Range(„D4“) = Multiplikation

Range(„D2“).ClearContents

Beende das Makro mit End If und End Sub.

Komplett sieht das Makro so aus:

Sub OptionRechnen()

Dim Subtraktion As Long

Dim Multiplikation As Long

Subtraktion = Range(„B7“).Value – Range(„B9“).Value

Multiplikation = Range(„B8“).Value * Range(„B10“).Value

If Worksheets(„Tabelle1“).OptionButton1.Value = True Then

Range(„D2“) = Subtraktion

Range(„D4“).ClearContents

ElseIf Worksheets(„Tabelle1“).OptionButton2.Value = True Then

Range(„D4“) = Multiplikation

Range(„D2“).ClearContents

End If

End Sub.

Füge zuletzt auf Deinem Arbeitsblatt noch eine Schaltfläche aus den Formularsteuerelementen ein und weise diesem das Makro „OptionRechnen“ zu.

Aktiviere nun OptionButton1 und klicke auf die Schaltfläche. Es wird die Subtraktion ausgeführt.

OptionButton5

Aktiviere jetzt OptionButton2 und klicke auf die Schaltfläche. Es wird die Multiplikation ausgeführt.

OptionButton6

Dies war nur ein einfaches Beispiel der Anwendung von OptionButton. Vieles andere ist denkbar.

Z.B. könnte die Aktivierung von OptionButto1 bzw. von OptionButton2 jeweils ein weiteres Makro starten.

Du kannst auch Makros am Steuerelement als Private Sub hinterlegen. Gehe dazu in den Entwurfsmodus, aktiviere das Steuerelement und rufe mit der rechten Taste „Code anzeigen“ auf.

Du gelangst jetzt in den Editor. Die erste und letzte Zeile sind bereits vorgegeben. Füge die Codezeilen dazwischen ein. Ein Klick auf einen OptionButton teilt Dir nun über eine MsgBox z.B. mit, ob ein Gast eine Tasse Kaffee oder eine Tasse Tee wünscht.

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then

MsgBox („Der Gast wünscht eine Tasse Kaffee!“)

End If

End Sub

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then

MsgBox („Der Gast wünscht eine Tasse Tee!“)

End If

End Sub

9b113ea9d5044564ae4b51861c83cb16

WordPress Cookie Plugin von Real Cookie Banner