Thema Datum  Von Nutzer Rating
Antwort
Rot Mappe A und B über eine Userform verwalten
 18.01.2009 14:27:24 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
18.01.2009 14:27:24		 Views:
1780		 Rating:
     
Antwort:
  Ja
Thema:
Mappe A und B über eine Userform verwalten
Ich habe 2 Arbeitsmappen Mappe A (Erfassung) und Mappe B (Datenbank). Ich starte in Mappe A eine Userform. Diese Userform greift auf Daten in Mappe B zu und stellt diese in in Mappe A zur verfügung.
Wenn in der Userform (Mappe A) mit dem ComboBox1 "neuen Kunden hinzufügen" angewählt wir ... kann ein neuer Datensatz eingegeben werden. Durch betätigen des Übernehmen Buttons (CommandButton2) kann dann der neu eingetragene Datensatz in beide Mappen übernommen werden.

Mappe A ist eine Mappe für einen Kunden
Mappe B ist eine Mappe nur für den Internen gebrauch mit allen Kunden und Kundendaten

Option Explicit

Private Sub ComboBox1_Click() ' Zur auswahl von existierenden Datensätzen
If ComboBox1.ListIndex <> 0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If
End Sub

Private Sub CommandButton1_Click() 'Löscht den Datensatz
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
UserForm_Initialize
End If
End Sub

Private Sub CommandButton2_Click() 'Übernimmt den Datensatz in Mappe A und B (in Mappe B nur wenn nicht vorhanden)
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1) = TextBox1
Cells(xZeile, 2) = TextBox2
Cells(xZeile, 3) = TextBox3
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Columns("A:C").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub

Private Sub CommandButton3_Click() 'Userform Beenden
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "neuen Kunden hinzufügen" ' Nun soll in Mappe A und B gespeichert werden
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub

danke und gruß

Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mappe A und B über eine Userform verwalten
 18.01.2009 14:27:24 Werner
NotSolved