Office: Problem Eingabemaske Formel anpassen

Helfe beim Thema Problem Eingabemaske Formel anpassen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, hab' hier ein schwerwiegendes Problem! Folgende Anweisung in meiner UserForm namens "KlientenLieferantenVerwaltung" müsste so angepasst... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von timi, 13. Juni 2008.

  1. timi Erfahrener User

    Problem Eingabemaske Formel anpassen


    Hallo,

    hab' hier ein schwerwiegendes Problem!
    Folgende Anweisung in meiner UserForm namens "KlientenLieferantenVerwaltung" müsste so angepasst werden, dass nach der Eingabebestätigung ( Dateneingabe ), die TextBox22 eine Aufgabe erledigt.
    Und zwar erfasse ich hiermit Kunden. Die KundenNr. sollte nach der Eingabebestätigung selbstständig erzeugt werden ( im Format 2008-0001) und folgende Bsp.: 2008-0002 etc.
    Diese TextBox22 lasse ich bewusst leer und habe sie per Hinweis(UserForm) gesichert, so dass niemand Eintragungen darin vornehmen kann.
    Das Format der KundenNr. sollte eine Verkettung aus dem aktuellen Jahr 2008 mit Jahreswechselanpassung sein + 0001 u. folgende.
    Gehe davon aus, dass ich eine Spalte eines Tabellenblatts mit hinzuziehen muß, da sich ja Excelchen daran orientieren muß, welche KundenNr. schon vergeben wurde und welche noch frei ist. ( Gehe ich mal als Laie davon aus )?
    Die Löschen-Funktion wird hier von mir deaktiviert, so daß kein Kunde gelöscht werden kann. Dies würde dieses Drama wahrscheinlich nur noch verschlimmern!

    Zudem, kann mir jemand sagen, welche Position in dieser Anweisung bestimmt, dass TextBox1 gefüllt sein muß, damit die Eingabe akzeptiert bzw. ausgeführt wird?
    Wo kann man dies auf TextBox10 umdefinieren?

    Das ist jetzt was für Hardcore-Excelaner! Bin überfordert!

    Gruß timi

    Hier die Anweisung, welche ich bereits teilweise an meine Bedürfnisse angepasst habe:
    Option Explicit

    Private Sub ComboBox1_Click()
    If ComboBox1.ListIndex <0> 0 Then
    Rows(ComboBox1.ListIndex + 1).Delete
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
    TextBox12 = ""
    TextBox13 = ""
    TextBox14 = ""
    TextBox15 = ""
    TextBox16 = ""
    TextBox17 = ""
    TextBox18 = ""
    TextBox19 = ""
    TextBox20 = ""
    TextBox21 = ""
    TextBox22 = ""
    UserForm_Initialize
    End If
    TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
    End If
    End Sub

    Private Sub CommandButton2_Click()
    If TextBox10.Value = "" Then
    Beep
    KeinEintragVorgenommen.Show
    Else
    Dim xZeile As Long
    If TextBox1 = "" Then Exit Sub
    If ComboBox1.ListIndex = 0 Then
    xZeile = [M65536].End(xlUp).Row + 1
    Else
    xZeile = ComboBox1.ListIndex + 1
    End If
    Cells(xZeile, 13) = TextBox1
    Cells(xZeile, 14) = TextBox2
    Cells(xZeile, 15) = TextBox3
    Cells(xZeile, 16) = TextBox4
    Cells(xZeile, 17) = TextBox5
    Cells(xZeile, 18) = TextBox6
    Cells(xZeile, 19) = TextBox7
    Cells(xZeile, 20) = TextBox8
    Cells(xZeile, 21) = TextBox9
    Cells(xZeile, 22) = TextBox10
    Cells(xZeile, 23) = TextBox11
    Cells(xZeile, 24) = TextBox12
    Cells(xZeile, 25) = TextBox13
    Cells(xZeile, 26) = TextBox14
    Cells(xZeile, 27) = TextBox15
    Cells(xZeile, 28) = TextBox16
    Cells(xZeile, 29) = TextBox17
    Cells(xZeile, 30) = TextBox18
    Cells(xZeile, 31) = TextBox19
    Cells(xZeile, 32) = TextBox20
    Cells(xZeile, 33) = TextBox21
    Cells(xZeile, 34) = TextBox22
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
    TextBox12 = ""
    TextBox13 = ""
    TextBox14 = ""
    TextBox15 = ""
    TextBox16 = ""
    TextBox17 = ""
    TextBox18 = ""
    TextBox19 = ""
    TextBox20 = ""
    TextBox21 = ""
    TextBox22 = ""
    Columns("M:AH").Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    UserForm_Initialize
    TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
    End If
    End Sub

    Private Sub CommandButton3_Click()
    MaskeWirdGeschlossen.Show
    Startseite.ComboBox1.Value = "Klient / Lieferant"
    Unload Me
    End Sub

    Private Sub TextBox9_Enter()
    Länderkennzeichen.Show
    End Sub

    Private Sub UserForm_Activate()
    TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
    TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
    End Sub

    Private Sub UserForm_Initialize()
    Dim aRow, i As Long
    Application.EnableEvents = False
    ComboBox1.Clear
    aRow = [M65536].End(xlUp).Row
    ComboBox1.AddItem "Neuer Klient / Lieferant hinzufügen"
    For i = 2 To aRow
    ComboBox1.AddItem Cells(i, 12) & " - " & Cells(i, 18) & ", " & Cells(i, 17)
    Next i
    ComboBox1.ListIndex = 0
    Application.EnableEvents = True
    End Sub
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
    Startseite.ComboBox1.Value = "Klient / Lieferant"
    End If
    End Sub
     
Thema:

Problem Eingabemaske Formel anpassen

Die Seite wird geladen...
  1. Problem Eingabemaske Formel anpassen - Similar Threads - Problem Eingabemaske Formel

  2. Schriftarten/größe lassen sich nicht ändern

    in Microsoft Word Hilfe
    Schriftarten/größe lassen sich nicht ändern: Hallo, Ich benutze an meinen Tablet die neuste Version von Word und Office und habe seit neusten das Problem das ich weder die Schriftart noch die Schriftgröße ändern kann. Unter Start fangen die...
  3. Problem beim Abmelden/ neu Anmelden

    in Microsoft Teams Hilfe
    Problem beim Abmelden/ neu Anmelden: Hallo, ich bin vor kurzem in eine neue Schule gegangen. Da ich 2020 schon mit Teams gearbeitet und eine E-mail von der Schule verwendet habe, habe ich eine neue bekommen. Problem bei dem ganzen...
  4. Outlook VBA NewMail Funktion Problem

    in Microsoft Outlook Hilfe
    Outlook VBA NewMail Funktion Problem: Hallo zusammen, ich möchte aus eingehenden E-Mails Anlagen in einem vorgegebenen Order abspeichern. Ich habe mir dazu ein Makro aus dem Netzt gemopst - zugegebenermaßen- was genau das kann....
  5. Anzeige Problem beim Umschlag drucken

    in Microsoft Word Hilfe
    Anzeige Problem beim Umschlag drucken: Hallo, ich habe ein seltsames Problem: Wenn ich in Word etwas schreibe, überprüfe ich dies und klicke auf Datei--->Drucken. Nun möchte ich diesen Brief versenden und klicke oben auf...
  6. Excel VBA Problem create button

    in Microsoft Excel Hilfe
    Excel VBA Problem create button: Hallo liebe Community, ich hoffe ihr könnt helfen, bin am verzweifeln und kann den Fehler einfach nicht finden. Wir haben eine aufwendig gestallte Excel Liste, wo wir unter anderem Button...
  7. Problem mit Bedingte Formatierung

    in Microsoft Excel Hilfe
    Problem mit Bedingte Formatierung: Guten Tag, Ich habe eine recht unübersichtliche Exeltabelle und mir dadurch eine Suchbox über die bedingte formatierung eingerichtet die die kompletten zeilen gelb markiert...
  8. Problem mit Formation in einer Tabelle

    in Microsoft Word Hilfe
    Problem mit Formation in einer Tabelle: Hi Leute, hab hier zwei Tabelle in einer Word Datei. Die untere Tabelle ist ok und hat einen rosa Hintergrund mit schwarzer Schrift. Die obere Tabelle spinnt irgendwie. Hab da rosa Hintergrund...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden