MS-Office-Forum

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

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 07.04.2018, 13:46   #31
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Beverly,
1Produkt ist vorhanden, bitte ein neues Produkt z. B. Zahnpasta anlegen.
Gruß
Klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.04.2018, 09:05   #32
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

beim Eintragen von in der Liste nicht vorhandener Wörten wird das zuerst eignetragene Zeichen markiert, weil nichts anders vorgeschlagen werden kann - du musst also erst einmal die Markierung aufheben: einfach die Rechts-Taste drücken, damit du hinter das 1. Zeichen gelangst, dann kannst du weitere Zeichen eingeben.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.04.2018, 11:35   #33
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly,
dann war ich schon an der Lösung ganz nah dran, wenn man den ersten Buchstaben 2x eingibt, oder Taste nach rechts.
Danke für Deine Mühe und Geduld.
Ziel ist erreicht.
Gruß und noch ein schönes WE
Klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2018, 07:41   #34
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly,
noch 2 kleine Fragen.
1.)Kannst Du bitte für Spalte Kunde auch ein Kombinationsfeld anlegen?
2.)kann man das Kombi-Feld so anlegen, dass mit schreiben des ersten Buchstaben z.B. "A" die möglichen Produkte die mit A beginnen sofort sehen kann ( ev. max 8 ) damit ich nicht mit der Maus scrollen muss.
In Auswertung würde dann Spalte A=Kunde, Spalt B=Produkt sein.
Vielen Dank
Gruß Klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2018, 14:55   #35
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

erstelle ein zweites Kombinationsfeld. Der komplette Code müsste dann so aussehen:

Code:

Option Explicit

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim lngZeile As Long
    If KeyCode = 13 Then
        Application.ScreenUpdating = False
        If IsError(Application.Match(ComboBox1.Value, Worksheets("Auswertung").Columns(1), 0)) Then
            With Worksheets("Auswertung")
                lngZeile = Application.CountA(.Columns(2)) + 1
                .Cells(lngZeile, 2) = ComboBox1.Value
                .Range(.Cells(2, 2), .Cells(lngZeile, 2)).Sort key1:=.Range("B2"), Header:=xlNo
            End With
            ComboBox1.ListFillRange = "Auswertung!$B2:B" & lngZeile
        End If
        ComboBox1.TopLeftCell = ComboBox1.Value
        ComboBox1.TopLeftCell.Offset(1, 0).Select
        Application.ScreenUpdating = True
    End If
End Sub

Private Sub ComboBox1_GotFocus()
    Call ComboBox1.DropDown
End Sub

Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim lngZeile As Long
    If KeyCode = 13 Then
        Application.ScreenUpdating = False
        If IsError(Application.Match(ComboBox2.Value, Worksheets("Auswertung").Columns(1), 0)) Then
            With Worksheets("Auswertung")
                lngZeile = Application.CountA(.Columns(1)) + 1
                .Cells(lngZeile, 1) = ComboBox1.Value
                .Range(.Cells(2, 1), .Cells(lngZeile, 1)).Sort key1:=.Range("A2"), Header:=xlNo
            End With
            ComboBox1.ListFillRange = "Auswertung!$A2:A" & lngZeile
        End If
        ComboBox1.TopLeftCell = ComboBox1.Value
        ComboBox1.TopLeftCell.Offset(1, 0).Select
        Application.ScreenUpdating = True
    End If
End Sub

Private Sub ComboBox2_GotFocus()
    Call ComboBox2.DropDown
End Sub


Private Sub Worksheet_Activate()
    Dim lngZeileA As Long
    Dim lngZeileB As Long
    With Worksheets("Auswertung")
        lngZeileA = Application.CountA(.Columns(1))
        lngZeileB = Application.CountA(.Columns(2))
    End With
    ComboBox2.ListFillRange = "Auswertung!$A2:A" & lngZeileA
    ComboBox1.ListFillRange = "Auswertung!$B2:B" & lngZeileB
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells(1).Column = 4 Then
        ComboBox1.Top = Target.Top
        ComboBox1.Left = Target.Left
        ComboBox1.Value = Target.Cells(1)
    ElseIf Target.Cells(1).Column = 1 Then
        ComboBox2.Top = Target.Top
        ComboBox2.Left = Target.Left
        ComboBox2.Value = Target.Cells(1)
    End If
End Sub

GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2018, 16:41   #36
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly,
ich glaube es gibt da ein paar kleine Fehler.
Produkt:
Eingabe Produkt Apfel alles Ok, möchte ich eine Ananas eingeben geht das nicht, er schlägt mir immer nur den Apfel vor.
Wähle ich den Apfel wird er in der Auswertung 2 x angezeigt.
Kunde:
Eine Eingabe für einen weiteren Kunden ist nicht möglich.
Mache ich etwas falsch??
Schönes WE
Gruß Klaus
Angehängte Dateien
Dateityp: xlsm RE_komb_kunde_produkt.xlsm (27,6 KB, 7x aufgerufen)
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2018, 08:29   #37
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

lösche das zuletzt erstellte Kombinationsfeld - man kann 1 Kombinationsfeld für beide Spalten verwenden:

Code:

Option Explicit
Dim intSpalte As Integer
Dim lngZeile As Long

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim intEintrag As Integer
    If KeyCode = 13 Then
        Application.ScreenUpdating = False
        If intSpalte = 1 Then
            intEintrag = 1
        ElseIf intSpalte = 4 Then
            intEintrag = 2
        End If
        If ComboBox1.Value <> "" Then
            If IsError(Application.Match(ComboBox1.Value, Worksheets("Auswertung").Columns(intEintrag), 0)) Then
                With Worksheets("Auswertung")
                    lngZeile = Application.CountA(.Columns(intEintrag)) + 1
                    .Cells(lngZeile, intEintrag) = ComboBox1.Value
                    .Range(.Cells(2, intEintrag), .Cells(lngZeile, intEintrag)).Sort key1:=.Cells(2, intEintrag), Header:=xlNo
                    ComboBox1.ListFillRange = "Auswertung!" & Range(Cells(2, intEintrag), Cells(lngZeile, intEintrag)).Address
                End With
            End If
        End If
        ComboBox1.TopLeftCell = ComboBox1.Value
        ComboBox1.TopLeftCell.Offset(1, 0).Select
        Application.ScreenUpdating = True
    End If
End Sub

Private Sub ComboBox1_GotFocus()
    Call ComboBox1.DropDown
End Sub

Private Sub Worksheet_Activate()
    Select Case Selection.Cells(1).Column
        Case 1, 4
            intSpalte = Selection.Cells(1).Column
            If intSpalte = 1 Then
                With Worksheets("Auswertung")
                    lngZeile = Application.CountA(.Columns(1))
                End With
                ComboBox1.ListFillRange = "Auswertung!" & Range(Cells(2, 1), Cells(lngZeile, 1)).Address
            ElseIf intSpalte = 4 Then
                With Worksheets("Auswertung")
                    lngZeile = Application.CountA(.Columns(2))
                End With
                ComboBox1.ListFillRange = "Auswertung!" & Range(Cells(2, 2), Cells(lngZeile, 2)).Address
            End If
    End Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Cells(1).Column
        Case 1, 4
            intSpalte = Target.Cells(1).Column
            With Worksheets("Auswertung")
                If intSpalte = 1 Then
                    lngZeile = Application.CountA(.Columns(1))
                    ComboBox1.ListFillRange = "Auswertung!" & Range(Cells(2, 1), Cells(lngZeile, 1)).Address
                    ComboBox1.Value = Target.Cells(1).Value
                Else
                    lngZeile = Application.CountA(.Columns(2))
                    ComboBox1.ListFillRange = "Auswertung!" & Range(Cells(2, 2), Cells(lngZeile, 2)).Address
                    ComboBox1.Value = Target.Cells(1).Value
                End If
            End With
            ComboBox1.Top = Target.Top
            ComboBox1.Left = Target.Left
            ComboBox1.Value = Target.Cells(1)
    End Select
End Sub

GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2018, 11:07   #38
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly,
hier der stand jetzt mit einem Kombi Feld z.B. Produkt:
Hinzu fügen von einem Produkt wenn der erste Buchstabe noch nicht verbraucht ist OK. Versucht man z. B. ein neues Produkt " Blume" an zu legen kommt man an der Birne nicht vorbei. Ich kann allerdings Blume in der Auswertung unter Produkte eingeben, wär machbar.
Ich habe ca. 1300 Kunden mit 150 Produkten und muß bei Auswahl unter Lizenzen nach dem ersten Buchstaben z. B. "P" im Kombi Feld nur noch Polo und Porsche sehen. Nach "o" sehe ich beide noch, nach "r" bleibt Porsche, will ich aber auf Porta muß ich mit "t" weiter schreiben können und Porta wird als neuer Kunde in die Auswertung geschrieben.
Mappe im Anhang
Vielen vielen Dank, hoffentlich nerve ich nicht zu sehr.
Gruß Klaus
Angehängte Dateien
Dateityp: xlsm RE_komb_kunde_produkt-2.xlsm (26,2 KB, 6x aufgerufen)
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2018, 16:52   #39
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

du kannst nicht alles gleichzeitig haben - sowohl die Anzeige der vorhandenen Werte mit dem gewünschten Anfangsbuchstaben als auch den Wunsch gleich mit dem nächsten Buchstaben weiterschreiben zu wollen falls der Inhalt in der Liste nicht vorhanden ist: du musst dann alle nachfolgenden ab dem ersten nicht gewünschten Buchstaben mit der Maus markieren und diese markierten Buchstaben überschreiben.

Übrigens: ergänze mal sicherheitshalber im ComboBox1_KeyUp-Ereignis die rot markierte Zeile

Code:

    Dim intEintrag As Integer
    If KeyCode = 13 Then
        Application.ScreenUpdating = False
        intSpalte = ComboBox1.TopLeftCell.Column
        If intSpalte = 1 Then
            intEintrag = 1
        ElseIf intSpalte = 4 Then
            intEintrag = 2
        End If
Falls nämlich intSpalte nicht belegt ist gibt es sonst einen Fehler.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 16:31   #40
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly,
an dieser Stelle meine herzlichen Dank für Deine Hilfe.
Gibt es eine Chance meinen Wunsch noch zu realisieren??
Vielleicht noch eine kurze Antwort.
Gruß
Klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 16:55   #41
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

was möglich ist hatte ich in meinem vorhergehenden Beitrag geschrieben - nicht benötigte Buchstaben im Kombinationsfeld markieren und überschreiben.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 17:24   #42
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

hi beverly,
deinen vorschlag habe ich umgesetzt,ok
was kann / muss ich tun um zum ziel zu kommen.
gruß klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 17:30   #43
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

zu welchem Ziel? Was denn noch?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 20:06   #44
kl-p
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hi Beverly,
siehe
15.04.2018, 12:07
Wenn das nicht machbar ist, komme ich auch mit dem letzten Stand klar.
Nochmals vielen Dank
Klaus
kl-p ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 21:43   #45
Beverly
MOF Guru
MOF Guru
Standard

Hi Klaus,

darauf hatte ich doch bereits in meinem Beitrag 15.04.2018 17:52 und noch einmal im Beitrag 16.04.2018 17:55 geschrieben, was und wie man es machen muss - anders geht es nicht, da weil du bei Eingabe eines Buchstaben die bereits vorhandenen aufglistet haben willst...


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly 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 01:28 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 - 2018, Jelsoft Enterprises Ltd.

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