Hallo alle miteinander
Ich brauche mal wieder etwas Hilfe
Es geht um volgendes.
Ich habe eine Userform gestaltet mit zwei Comboboxen in die daten aus je einer "inteligenten Tabelle" eingelesen werden
kein Problem
Mit einem Commandbutton soll ein Neuer Datensatz in die Tabelle gespeichert werden
kann mir jemand weiterhelfen ich wieß nicht weiter
lg Ronny
Datei ist angefügt
Hallo,
du hast da irgend etwas vermurkst.
ich vermute das die Rowsource zuweisung später beim Listrows.add einen Fehler erzeugt.
deshalb habe ich die Liste der Combobox auch über die Intelligente Tabelle gefüllt.
XT_cB_Firma.List = Tabelle1.ListObjects("CB_Firma").DataBodyRange.Value
So würde eine neue Zeile erzeugt und ein Wert zugewiesen.
Wegen der Fehlers hatte ich die Intelligenten Tabellen neu erstellt. Deshalb sind die Namen etwas anders.
Es wäre aber ratsam zu prüfen ob der Wert schon vorhanden ist.
Private Sub Cb_Baustelle_Speichern_Click()
With Tabelle1.ListObjects("CB_Baustellen").ListRows.Add(alwaysinsert:=True)
.Range.Cells(1) = TXT_cB_Baustelle
End With
End Sub
Moin Ralf_b
Ich hatte eigentlich gedacht ich bin etwas schlauer geworden aber leider nein etwas Vieleicht aber meistens dann auch nicht !!! (schauer)
Bevor ich zum Thema komme muss ich mal was loswerden was ich festgestellt Habe hier in diesem Forum
Es sind immer wieder die selben die mir weiterhelfen und dafür bin ich euch sehr dankbar und freue mich wenn ich mal etwas Falsch gemacht Habe (wie zum beispiel eine sache zwei mal in verschiedene Foren gepostet )
immer wieder Fachliche Hilfe von euch zu bekommen
Vielen leiben Dank euch allen für die mühe
So nun zu Thema
entschuldige bitte aber ich habe auch noch die falsche Tabelle hochgeladen hm , ist aber egal da du ja sofort gesehen hast um was es geht
Ich muste das erst mal loswerden und nun schau ich mir mal deine Vorschlag an
bis gleich LG Ronny
Hallo Ralf b
Habe es jetzt über arbeitet (ListRows.Add(alwaysinsert=True)) war das zweite fehlend Teil um die Userform zum laufen zu bringen
ÄÄÄÄ nun gut das erste war falsche Bezeichnungen TXT_CB_Baustelle ..richtig Baustellen
Manchmal hilft der Blick eines Fachmannes oder einer Fachfrau schon sehr viel
Vielen dank jetzt kann ich weite machen
Jetzt sind die doppelten Einträge dran erst mal hier Schaun wie das von statten geht
LG von Ronny
Hallöchen,
für die doppelten Einträge gibt es verschiedene Möglichkeiten.
- Duplikate in der Tabelle entfernen - geht z.B. manuell oder per Makro
- Hilfstabelle ohne Duplikate erzeugen und übernehmen - geht z.B. per Formel oder Makro
- ein Array ohne Duplikate bilden - geht nur per Makro
Das erste wäre sicher die einfachste Variante, auch, weil Du den Code dazu aufzeichnen kannst
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.Range("TB_CB_Firma[#Alle]").RemoveDuplicates Columns:=1, Header _
:=xlYes
End Sub
Auch die zweite Variante wäre noch einfach, auch wieder per Aufzeichnen die Daten kopieren, an anderer Stelle einfügen, Duplikate entfernen und in die cbox übernehmen. Eventuell müsste man da geringfügig Hand anlegen und den Code etwas anpassen.
Die dritte Variante müsste man komplett von Hand programmieren.
Hallo Ralf
Ich schaue mir das mal eben an und probiere es aus
aber ich möchte verhindern das die Einträge nicht doppelt in die liste eingetragen werden
vielen Dank
Lg Ronny
Hallo André
Ich schau mir mal eure beiden Vorschläe an und probiere Sie mal aus
Lg Ronny
Hallo Ralf
Dein link ist ja wohl richti g... Toll
muß jetzt erst mal mich mit dem stoff vertraut machen
Danke für den Tipp der war goldrichtig
Lg Ronny