Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

VBA Combobox mit Sverweiß ???





Frage

Hallo liebe Supportnetfreunde, Ich habe mal wieder ein Problem und komme nicht weiter. Ich benutze eine Userform zur Dateneingabe um die zu vereinfachen habe ich 3 Komboboxen in abhänigkeit zueinander. Die wete die ich durch die Comboboxen auswähle werden in eine Tabelle eingetragen. Soweit funktioniert alles super nur leider sind die ausgewählten Sachen manchmal so lang das sie nicht richtig in die Tabelle passen. Die Tabelle kann ich auch nicht weiter ziehen da es dann beim Ausdrucken wieder nicht hinhaut. Darum hatte ich mir noch eine Spalte mit genau den selben Werten wie in der Combobox angelegt ( diese sind aber abgekürzt und nicht so vielsagend) und wollte das er über einen Verweiß mir die entsprechend kürzere Auswahl in die Tabelle schreibt. Ich hoffe ich habe jetzt nicht zu sehr verwirrt. Ich danke euch für eure Lösungsvorschläge. MfG Fischi

Antwort 1 von primut

Hi Fischi,

keine Ahnung, ob ich dich richtig verstanden habe:
Mach doch einfach, bevor du den ausgewählten Wert der Combobox in die Tabelle übertrrägst, eine Abfrage nach der Länge des Wertes, und entscheide dann, welchen du verwendest. Die If - Anweisung und die LEN ( ) Funktion sollten ja bekannt sein,.

Gruß
Primut

Antwort 2 von Fischi40

Hallo primut,

leider muss ich passen if kenne ich gerade noch aber bei Len hört es dann auf...
Ich wollte die Sache ja auch ziehmlich allgemein halten da ich ja in der ersten combobox sonst über 30 Eintäge einzeln edidieren müste und bei den anderen beiden Combos wäre es ähnlich.
Darum dachte ich das man es irgendwie so formulieren kann: Wenn ich Wert X in Combobox wähle gehe in der selben Zeile (aus der die Daten kommen) eine Spalte weiter und bringe den wert Y (das kürzergeschriebene) zum weiterverarbeiten?

Nur dafür reicht mein VBA-Wissen nicht aus. :o(

Vielen Dank für eure Hilfe...

MfG Fischi

Antwort 3 von Fischi40

Hallo liebe Leute...

ich wollte keinen verschrecken, schließlich bin ich doch für jeden Lösungsvorschlag dankbar.

Fällt euch denn garnix mehr dazu ein oder sollte ich es vielleicht ganz anders angehen.

Würde mich über weitere Antworten echt freuen.

Vielen Dank schonmal....

MfG Fischi

Antwort 4 von Fischi40

Hallo, und ein schönes Wochenende....


Heute zum Wochenende ist doch sicherlich ein VBA-Profi unterwegs der auf meine Frage eine Lösung hat...
Oder hab ich´s so besch... formuliert das mal wieder keiner weiß was ich überhaupt meine???

Na vieleicht findet sich ja doch noch jemand... (hoffe ich)

Bis später....

MfG Fischi

Antwort 5 von schnallgonz

Tagchen Fischi,

ich weiß nicht, ob ich Dein Problem richtig verstanden habe.
Deshalb mein Vorschlag mit Erläuterungen bei folgenden Annahmen:

  1. Deine Combowerte stehen in Spalte H
  2. Deine Kurzwerte stehen 1 Spalte rechts daneben
  3. Die Kurzwerte kommen zum Zuge, wenn die Combowerte länger als 10 Zeichen sind.

Sieht dann so aus:

Sub ZelleLenMax10()
Dim i As Integer
Dim AnzZeilen As Integer
AnzZeilen = ActiveSheet.UsedRange.Rows.Count
Range("H1").Activate
For i = 1 To AnzZeilen
If Len(ActiveCell) > 10 Then
ActiveCell.Value = ActiveCell.Offset(0, 1)
End If
ActiveCell.Offset(1, 0).Activate
Next i
End Sub


MfG
schnallgonz

Signatur und Textformatierungen wurden mit SNTool V1.1.12 erstellt

Antwort 6 von Fischi40

Hallo.....

Und hier ist er mein lange gesuchter VBA - Profi : ___schnallgonz___ :o)

Werds gleich mal ausprobieren.
Vielen lieben Dank und auch einen Gruß an den kleinen Nachwuchs... :o)

MfG Fischi

Antwort 7 von schnallgonz

Salve Fischi,

Danke für die nette Rückmeldung, aber zu den VBA-Profis gehöre ich leider nicht.
Bin sozusagen noch in der VBA-Ausbildung :-)
Wenn´s ernst wird, müssen die echten VBA-Künstler ran,
und davon gibt´s in diesem schönen Forum zum Glück genug!
Namen will ich nicht nennen, weil ich bestimmt den Einen oder Anderen in der Auflistung vergessen und damit verärgern würde.

Aber ein Hinweis auf die Excelseite von coros ist bestimmt erlaubt.


Übrigens hatte mein Jüngster erst gegen 9:00 Hunger.

MfG
schnallgonz

Signatur und Textformatierungen wurden mit SNTool V1.1.12 erstellt