MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 13.09.2017, 12:17   #1
JeRo_84
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Mitgliederverwaltung erstellen

Hallo zusammen,

ich möchte für unseren Bogensportverein eine Mitgliederverwaltung erstellen.
Die Daten sind bisher in einer einfachen Tabellenform vorhanden.

Bei der bisherigen Mitgliederzahl ist das auch noch alles überschaubar.

Wenn es aber zukünftig mehr Mitglieder werden ist eine UserForm doch sehr hilfreich.
Ich habe die in meiner Beispieldatei im Anhang erstellt und versuche nun anhand von anderen Forenbeiträgen den Textboxen "Leben" einzuhauchen.
Leider bisher ohne Erfolg, weshalb ich nun Fragen möchte ob mir jemand von euch helfen kann.

Beschreibung:
In der UserForm hätte ich gerne auf der linken Seite die ListBox mit den aktuellen Mitgliedern gefüllt. Mein bisheriger Versuch zeigt leider nichts an. Weshalb ich den zweiten Schritt, das auswählen über diese Liste nicht unternehmen kann.

Sobald ich ein Mitglied in der Liste angewählt habe wäre es super wenn die jeweiligen Werte dann rechts in den Textboxen angezeigt werden. Aber auch hier tut sich leider nichts. Unabhängig von der Listbox sollten hier eigentlich Werte eingetragen sein. Natürlich in der Wunschvorstellung...

Und zu guter Letzt wäre es super wenn man noch direkt über diese Maske ein neues Mitglied anlegen könnte.

Ich selber bin absolut kein VBA Fachmann. Weshalb ich auch bereit bin Schritt für Schritt zu lernen. Aber da ich gerade leider keinen Anfangserfolg habe wird es schwierig ohne Hilfe.

Code:

Option Explicit

Private Sub UserForm1_Activate()
Dim arr As Variant
With Sheets("Tabelle1")
    arr = Intersect(.Range("C:D"), .Range("C2").CurrentRegion)
End With
With ListBox1
    .ColumnCount = 2
    .List = arr
End With
End Sub

Private Sub CommandButton1_Click()
    temp = MsgBox("Soll das Mitglied wirklich gelöscht werden?", vbYesNo)
    If temp = vbYes Then
        Sheets(1).Rows(zeile).Delete
        Unload Me
    End If
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub CommandButton3_Click()
    Sheets(1).Cells(zeile, 1) = TextBox1
    Sheets(1).Cells(zeile, 2) = TextBox2
    Sheets(1).Cells(zeile, 3) = TextBox3
    Sheets(1).Cells(zeile, 4) = TextBox4
    Sheets(1).Cells(zeile, 5) = TextBox5
    Sheets(1).Cells(zeile, 6) = TextBox6
    Sheets(1).Cells(zeile, 7) = TextBox7
    Sheets(1).Cells(zeile, 8) = TextBox8
    Sheets(1).Cells(zeile, 9) = TextBox9
    Sheets(1).Cells(zeile, 10) = TextBox10
    Sheets(1).Cells(zeile, 11) = TextBox11
    Sheets(1).Cells(zeile, 12) = TextBox12
    Sheets(1).Cells(zeile, 13) = TextBox13
    Sheets(1).Cells(zeile, 14) = TextBox14
    Sheets(1).Cells(zeile, 15) = TextBox15
    Sheets(1).Cells(zeile, 16) = TextBox16
    Sheets(1).Cells(zeile, 17) = TextBox17
    Sheets(1).Cells(zeile, 18) = TextBox18
    Sheets(1).Cells(zeile, 19) = TextBox19
    Sheets(1).Cells(zeile, 20) = TextBox20
    Sheets(1).Cells(zeile, 21) = TextBox21
    Sheets(1).Cells(zeile, 22) = TextBox22
    Sheets(1).Cells(zeile, 23) = TextBox23
    Sheets(1).Cells(zeile, 24) = TextBox24
    Sheets(1).Cells(zeile, 25) = TextBox25
    Sheets(1).Cells(zeile, 26) = TextBox26
    Sheets(1).Cells(zeile, 27) = TextBox27
    Sheets(1).Cells(zeile, 28) = TextBox28
    Unload Me
End Sub

Private Sub UserForm1_Initialize()
    TextBox1 = Sheets(1).Cells(zeile, 1)
    TextBox2 = Sheets(1).Cells(zeile, 2)
    TextBox3 = Sheets(1).Cells(zeile, 3)
    TextBox4 = Sheets(1).Cells(zeile, 4)
    TextBox5 = Sheets(1).Cells(zeile, 5)
    TextBox6 = Sheets(1).Cells(zeile, 6)
    TextBox7 = Sheets(1).Cells(zeile, 7)
    TextBox8 = Sheets(1).Cells(zeile, 8)
    TextBox9 = Sheets(1).Cells(zeile, 9)
    TextBox10 = Sheets(1).Cells(zeile, 10)
    TextBox11 = Sheets(1).Cells(zeile, 11)
    TextBox12 = Sheets(1).Cells(zeile, 12)
    TextBox13 = Sheets(1).Cells(zeile, 13)
    TextBox14 = Sheets(1).Cells(zeile, 14)
    TextBox15 = Sheets(1).Cells(zeile, 15)
    TextBox16 = Sheets(1).Cells(zeile, 16)
    TextBox17 = Sheets(1).Cells(zeile, 17)
    TextBox18 = Sheets(1).Cells(zeile, 18)
    TextBox19 = Sheets(1).Cells(zeile, 19)
    TextBox20 = Sheets(1).Cells(zeile, 20)
    TextBox21 = Sheets(1).Cells(zeile, 21)
    TextBox22 = Sheets(1).Cells(zeile, 22)
    TextBox23 = Sheets(1).Cells(zeile, 23)
    TextBox24 = Sheets(1).Cells(zeile, 24)
    TextBox25 = Sheets(1).Cells(zeile, 25)
    TextBox26 = Sheets(1).Cells(zeile, 26)
    TextBox27 = Sheets(1).Cells(zeile, 27)
    TextBox28 = Sheets(1).Cells(zeile, 28)
End Sub
Ich würde mich sehr freuen wenn hier einer oder mehrere Personen Zeit hätten mir bei diesem "Problem" zu helfen.

Vielen Dank!

Gruß
JeRo_84
Angehängte Grafiken
Dateityp: png Screenshot.PNG (68,1 KB, 10x aufgerufen)
Angehängte Dateien
Dateityp: xlsm Microsoft Excel-Arbeitsblatt (neu).xlsm (26,2 KB, 5x aufgerufen)
JeRo_84 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 12:27   #2
Klaus-Dieter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

hier mal etwas (fast) fertiges.
Angehängte Dateien
Dateityp: zip adressbuch-Array-3.zip (62,6 KB, 11x aufgerufen)

__________________


Viele Grüße Klaus-Dieter

Klaus-Dieter's Excel und VBA Seite
Klaus-Dieter ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 12:27   #3
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Schaue Dir mal folgenden Link an.
Der sollte exakt Deinen Anforderungen entsprechen:
https://www.online-vba.de/vba_tutorialuserform.php

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 12:46   #4
JeRo_84
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke euch beiden.
Ich schaue es mir mal an.

Das zweite sieht auf den ersten Blick tatsächlich genau danach aus.

Gruß
Jens
JeRo_84 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 13:07   #5
JeRo_84
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Die Tabelle von Klaus-Dieter ist sehr umfangreich und eigentlich ziemlich genial, da ich aber einfach zu wenig Ahnung davon habe wie ich neue Felder hinzufügen kann lasse ich die Finger davon.
Vielen Dank trotzdem!

Die zweite Tabelle von RPP63neu entspricht exakt dem was ich mir vorgestellt habe und lässt sich mit meinen wenigen Kenntnissen auch auf meine Ansprüche umändern. Vielen Dank für den Hinweis!

Ein Frage hätte ich dennoch:
Aktuell wird der Inhalt über die ID (Namen) abgerufen.
Ich hätte aber gerne die Mitgliedsnummer als ID. Soweit nicht weiter tragisch da ich die Zeilen einfach anders vergebe.
Nun wird mir aber in der Liste logischerweise die Mitgliedsnummer anstatt der Namen angezeigt.
Wo im Code kann ich den Inhalt der Liste ändern? Im Idealfall hätte ich gerne dort den Vor- und Nachnamen aufgelistet welche aber bei mir in zwei Spalten vorhanden sind.

Gruß
JeRo_84
JeRo_84 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 14:56   #6
JeRo_84
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo zusammen,

ich habe jetzt offensichtlich die Stelle gefunden wo ich die anzuzeigende Spalte in der ListBox ändern kann.

Code:

ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
Allerdings zeigt er mir logischerweise nur diese eine Spalte an.
Wie schaffe ich es, dass die ListBox mir 3 Spalten anzeigt?

Gruß
JeRo_84
JeRo_84 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:27 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.