Einstellung einer Combobox aus Userform verwenden

Computer: Software & Programmierung Office Software
#1

Hallo Excelperten!

Ich habe eine Userform gebastelt, wo ich zwei ComboBoxen habe.
Diese füllen sich aus den Spaltenüberschriften der Tabelle.

Nun möchte ich, dass ich die eingestellte Spalte auch in VBA weiterverarbeiten kann (Also zum Beispiel sortieren in der Spalte oder Dubletten finden ect.)
Leider bricht mein Makro dabei mit einer Fehlermeldung ab.

Mein Makro ist:

…
Dim dubletten As String
Dim spdublett As Integer

…
dubletten = UserForm1.ComboBox1.Value

…
If dubletten = „“ Then
spdublett = 1
GoTo sort
End If

'Spalte herausfinden wo Dubletten entfernt werden sollen
Do Until ActiveCell = dubletten

spdublett = spdublett + 1

ActiveSheet.Cells(1, spdublett).Activate

Loop

…
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.Range("$A$2:$F$" & letztezeile).RemoveDuplicates Columns:=spdublett, Header:=xlNo

Das sind nur auszüge des Makros - wenn ich in der letzten gezeigten Zeile anstelle „spdublett“ die Ziffer für die Spalte eintrage funktioniert es. Aber ich würde diese Spalte halt gerne über die Combobox auswählen lassen um flexibel damit arbeiten zu können.

Ich hoffe mein Problem ist verständlich beschrieben und jemand weiß Rat.

Schonmal vielen Dank

René

#2

hi
setzt auf der letzten Zeile einen Haltepunkt und fahre mit der Maus über die Variable spdublett.
Dann siehst Du den Wert, den die Variable übergibt.

Vielleicht ist sie leer?

Nutzt Du mehrere Module / Forms?
dann muss die Variable global gesetzt werden

also
Public spdublett as integer

danach beginnen erst die routinen mit
Sub makro123 ()
Code

#3

Hallo Don Senilo!

Also das gesamte Makro läuft im Code der Userform. Es gibt nur diese eine Form.
Nach dem Debuggen habe ich schonmal herausgefunden, dass die Loop-Until zur Spaltenermittlung auch funktioniert.
Als Fehler beim Errorhandling gibt er mir aus, dass die Typen unverträglich seien.
Die Variable muss doch „Integer“ sein, oder irre ich mich da?

Gruß und schonmal danke

René

#4

Moin,

leg spdublet als Variant an: https://msdn.microsoft.com/en-us/library/office/ff193823.aspx

Gruß Ralf

#5

Danke auch Dir Ralf,

aber genau der gleiche Fehler:

Fehlernummer: 13
Fehlerbeschreibung: Typen unverträglich

Gruß
René

#6

Hi
länger nicht hier gewesen, schon gelöst?

https://msdn.microsoft.com/de-de/library/office/ff193823.aspx

Variablentyp bei RemoveDuplicates soll variant sein, wie drambeldier angemerkt hat

#7

hier gibt es Beispiel dazu
http://www.mrexcel.com/forum/excel-questions/609276-visual-basic-applications-making-column-number-array-removeduplicates.html

viel Erfolg

#8

Hallo DonSenilo!
DAS Problem habe ich jetzt im Griff - Danke nochmal für die Hilfe. :smile:
Hab aber direkt dann das nächste mit dem Makro! :smiley:
Wenn Du magst, hab das auch im Forum eingestellt. :smile:

Nochmals Danke

Gruß
René