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é
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
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é
Danke auch Dir Ralf,
aber genau der gleiche Fehler:
Fehlernummer: 13
Fehlerbeschreibung: Typen unverträglich
Gruß
René
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
Hallo DonSenilo!
DAS Problem habe ich jetzt im Griff - Danke nochmal für die Hilfe. 
Hab aber direkt dann das nächste mit dem Makro! 
Wenn Du magst, hab das auch im Forum eingestellt.
Nochmals Danke
Gruß
René