Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mitgliedertabelle

Forumthread: Mitgliedertabelle

Mitgliedertabelle
03.02.2005 10:08:33
Stefan
Hallo,
ich würde gerne für einen Verein eine Excel Mitgliedertabelle erstellen. Ich bräucht hierzu Hilfe:
Wie kann ich das machen, dass bei einer Eingabe eines neuen Mitglieds ein neues Menü (wie ein Assistent) geöffnet wird wo man Name usw. eingibt ? Und kann ich es damit auch machen das er die Mitgliedsnummer automatisch hochzählt ?
Desweiteren würde ich aus dem angegeben Geburtsdatum gerne den Mitgliedsbeitrag berechnen (über 18, unter 18). Weiß dafür aber leider keine Formel.
Vielen Dank schon mal.
Stefan
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mitgliedertabelle
UweD
Hallo
- Assistent: Hier ein Beispiel das die "Daten, Maske" aus Excel verwendet
- Mitgliedsnummer per Code wird dei Max-Funktion verwendet und um eins erhöht.
- Beitrag. =WENN(DATEDIF(E2;HEUTE();"Y")&gt18;100;20) (wenn in E2 das Geburtsdatum steht)
Hier mal eine Musterdatei.
https://www.herber.de/bbs/user/17396.xls
Gruß UweD
Anzeige
Hinweis
UweD
Hab gerade gemerkt, die sendkeys.. laufen NICHT richtig, wenn die Datei im Explorer angezeigt wird.
Wird die Datei gespeichert und dann NORMAL in Excel gestartet klappt es.
Gruß UweD
AW: Hinweis
03.02.2005 11:15:52
Stefan
Wie mache ich das mit dem Button das er die Maske automatisch öffnet ? Und wo gebe ich das mit dem MAX wert ein ? Weil in der Beispieltabelle ist nirgends diese Formel zu sehen.
Anzeige
AW: Hinweis
UweD
Hallo nochmal
Du möchtest ja sicherlich nicht immer wenn du die Datei öffnest, neu Mitglieder eintragen. Evtl. willst du ja mal was nachsehen, sortieren, ausdrucken usw.
Deshalb hab ich den Beispielknopf installiert.
Natürlich kann über das Ereignis

Private Sub Workbook_Open()
Sheets(1).ShowDataForm
End Sub

die Maske beim Start eingeblendet werden....
Die Maxfunktion steckt im Makro, welches bei Knopfdruck läuft

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "Tabelle2" doppelklicken

  • Im diesem Fenster wurde das Makro eingefügt



Private Sub CommandButton1_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
NR = Application.Max(Range("A:A")) + 1 'Neue Mitgliedernummer
ActiveSheet.Cells(LR + 1, 1).Value = NR
ActiveSheet.Cells(LR + 1, 6).Formula = ActiveSheet.Cells(LR, 6).Formula
SendKeys "{ENTER " & LR - 1 & "}" 'Vorbereitung für Maske, letzter Datensatz
ActiveSheet.ShowDataForm 'Maske Anzeigen
End Sub

Die Eingaben können natürlich auch durch eine eigene Userform geschehen....
Aber "Level: Kaum Excel/VBA-Kenntnisse " das klappt nicht.
Hier noch mal ein Ergänzung:
https://www.herber.de/bbs/user/17406.xls
Gruß UweD
Anzeige
AW: Hinweis
03.02.2005 11:50:31
Stefan
Ich habe ja mit der Funktion =WENN(DATEDIF(F2;HEUTE();"Y")&gt18;"60,00 €";"15") den Beitrag ausgerechnet. Wenn ich jetzt aber mit der Maske ein neues Mitglied anlege wird dieser Betrag nicht automatisch neu berechnet. Wie kann ich das machen ?
AW: Hinweis
UweD
Hallo
Das Kopieren der Formel war im Makro eingebaut:
ActiveSheet.Cells(LR + 1, 6).Formula = ActiveSheet.Cells(LR, 6).Formula
Wenn du aber in der geöffneten Maske durch "Neu" einen neuen Eintrag erzeugst, läuft das Makro NICHT ab (auch die Mitgliedsnummer wird dann nicht Neu erzeugt..
Das Ganze war nur als Muster gedacht um evtl. Denkanstöße zu setzen.
Kompl. Lösungen abzubilden dauert schon etwas Länger und bedarf einer genauen Beschreibubg von Vorgehensweisen...
Gruß UweD
Noch ein Tipp: in der Formel hast du die Beträge jetzt in " gesetzt. Dadurch wird das Text.. Damit kann excel später nicht rechnen (z.B. könntest du alle Beiträge addieren)...
Anzeige
;
Anzeige

Infobox / Tutorial

Mitgliedertabelle in Excel erstellen


Schritt-für-Schritt-Anleitung

  1. Erstelle eine neue Excel-Datei und benenne sie z.B. „Mitgliedertabelle“.
  2. Füge die benötigten Spalten hinzu:
    • Mitgliedsnummer
    • Name
    • Geburtsdatum
    • Beitrag
  3. VBA-Editor öffnen: Drücke Alt + F11.
  4. Füge ein neues Modul hinzu:
    • Rechtsklick auf „VBAProject (DeinDateiname)“ > Einfügen > Modul.
  5. Erstelle das Makro:
    Private Sub CommandButton1_Click()
       LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
       NR = Application.Max(Range("A:A")) + 1 'Neue Mitgliedernummer
       ActiveSheet.Cells(LR + 1, 1).Value = NR
       ActiveSheet.Cells(LR + 1, 6).Formula = ActiveSheet.Cells(LR, 6).Formula
       ActiveSheet.ShowDataForm 'Maske Anzeigen
    End Sub
  6. Erstelle einen Button in Deiner Tabelle, um das Makro auszuführen:
    • Entwicklertools > Einfügen > Button > Klicke in Deine Tabelle.
    • Verknüpfe den Button mit dem eben erstellten Makro.
  7. Um die Maske beim Öffnen der Datei anzuzeigen, füge folgenden Code in das „ThisWorkbook“-Modul ein:
    Private Sub Workbook_Open()
       Sheets(1).ShowDataForm
    End Sub
  8. Formel für den Mitgliedsbeitrag einfügen: Verwende die Formel:
    =WENN(DATEDIF(E2;HEUTE();"Y")>18;100;20)

    Hierbei steht E2 für das Geburtsdatum des Mitglieds.


Häufige Fehler und Lösungen

  • Problem: Die Maske öffnet sich nicht.

    • Lösung: Stelle sicher, dass der Code im Workbook_Open-Ereignis richtig eingegeben wurde.
  • Problem: Mitgliedsnummer wird nicht erhöht.

    • Lösung: Überprüfe, ob die MAX-Funktion korrekt im Makro implementiert ist.
  • Problem: Der Beitrag wird nicht aktualisiert.

    • Lösung: Achte darauf, dass die Formel in der Zelle korrekt ist und dass sie nicht als Text gespeichert ist.

Alternative Methoden

Du kannst auch eine Userform erstellen, um die Eingaben zu erleichtern. Hierbei benötigst Du grundlegende Kenntnisse in VBA. Eine Userform bietet eine benutzerfreundliche Oberfläche für die Dateneingabe.

  1. Userform erstellen:
    • Im VBA-Editor, Rechtsklick > Einfügen > UserForm.
  2. Steuerelemente hinzufügen: Füge Textfelder für Name, Geburtsdatum und einen Button für die Eingabe hinzu.
  3. Code zur Verarbeitung der Eingaben: Implementiere die Logik zum Speichern der Daten in der Tabelle.

Praktische Beispiele

Hier ist ein einfaches Beispiel für eine Mitgliedertabelle:

Mitgliedsnummer Name Geburtsdatum Beitrag
1 Max Mustermann 01.01.2000 100
2 Lisa Müller 15.05.2005 20

Die Formeln und Makros, die wir besprochen haben, sollten hier nahtlos integriert werden.


Tipps für Profis

  • Verwende Datenvalidierung, um sicherzustellen, dass nur gültige Daten eingegeben werden.
  • Automatisiere E-Mail-Benachrichtigungen, wenn neue Mitglieder hinzugefügt werden, indem Du das Outlook.Application-Objekt in VBA verwendest.
  • Optimiere die Benutzeroberfläche mit bedingter Formatierung, um wichtige Informationen hervorzuheben.

FAQ: Häufige Fragen

1. Wie kann ich die Mitgliedsnummer manuell setzen? Du kannst die Mitgliedsnummer manuell in die entsprechende Zelle eingeben, bevor das Makro ausgeführt wird.

2. Kann ich die Tabelle auch in anderen Excel-Versionen verwenden? Ja, die meisten Funktionen und VBA-Codes sind in den aktuellen Excel-Versionen kompatibel, jedoch gibt es Unterschiede in der Benutzeroberfläche.

3. Was mache ich, wenn ich die Maske nicht anpassen kann? Falls Du Schwierigkeiten hast, die Maske anzupassen, kann es hilfreich sein, Tutorials für VBA und Userform in Excel zu konsultieren.

4. Wie kann ich den Mitgliedsbeitrag für verschiedene Altersgruppen anpassen? Du kannst die WENN-Funktion in Excel anpassen, um unterschiedliche Beitragssätze für verschiedene Altersgruppen zu definieren, indem Du weitere Bedingungen hinzufügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige