Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt Kombinationsfeld in Tabelle übernehmen

Forumthread: Inhalt Kombinationsfeld in Tabelle übernehmen

Inhalt Kombinationsfeld in Tabelle übernehmen
22.12.2013 04:20:00
Park
Guten Tag,
ich möchte den Inhalt eines Kombinationsfeldes in eine Excel Tabelle übernehmen. Mit eine UserForm, in dem das Kombinationsfeld eingebaut ist. Darin stehen 2 Werte, die auswählbar sind.
Der Code dieses Kombinationsfeldes ist: 
Private Sub ComboBox1_Change()
Range("G23") = ComboBox1
End Sub

In der Excel Tabelle ist eine Spalte, die mit G23 beginnt und dann weitergeführt wird (G23:G100)
Der Wert, der aus dem Kombinationsfeld übernommen werden soll, soll jeweils am Ende dieser Spalte eingefügt werden, als nach dem letzten Eintrag.
Da ich Anfänger bin, bekomme ich das nicht hin.
Wäre über jede Hilfe sehr dankbar.
Windows 8.1 Pro 64bit, Excel 2013 64bit
Vielen Dank und ein frohes Weihnachtsfest.
Gruß

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt Kombinationsfeld in Tabelle übernehmen
22.12.2013 19:55:42
Park
Hallo
Vielen Dank für Deine Mühe.
Ich habe das gerade einmal eingebaut, doch irgendwie funktioniert das noch nicht richtig.
Ich denke, ich muss das noch anpassen, werde mir das gleich näher anschauen.
Gruß

Anzeige
AW: Inhalt Kombinationsfeld in Tabelle übernehmen
22.12.2013 20:08:23
Park
Hallo,
ich habe nun versucht, das ganze anzupassen, leider ohne Erfolg.
Ich stelle hier einmal den gesamten Code ein, der aber so nicht funktioniert.
Vielleicht kannst Du oder jemand der Experten einmal schauen, woran das liegen kann.
Vielen Dank.
Private Sub Datum_Change()
Range("C26") = TextBox1.Value
End Sub
Private Sub Liter_Change()
End Sub
Private Sub KM_Stand_Change()
End Sub
Private Sub Betrag_Change()
End Sub
Private Sub ComboBox1_Change()
Dim lRow As Long
On Error Resume Next 'Falls Bereich leer ist
lRow = Sheets("Tanken 13").Range("G28:G100").Find(What:="*", searchdirection:=xlPrevious).Row ' _
Tabellennamen anpassen
lRow = IIf(lRow = 0, 22, lRow)
Cells(lRow + 1, 7).Value = ComboBox1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Wahl 1"
.AddItem "Wahl 2"
End With
End Sub
Private Sub CommandButton1_Click()
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count) + 1
If TextBox1  "" And IsDate(TextBox1) Then
Cells(Loletzte, 3) = CDate(TextBox1)
If TextBox2  "" And IsNumeric(TextBox2) Then
Cells(Loletzte, 4) = CDbl(TextBox2)
End If
If TextBox3  "" And IsNumeric(TextBox3) Then
Cells(Loletzte, 6) = CDbl(TextBox3)
End If
If TextBox3  "" And IsNumeric(TextBox4) Then
Cells(Loletzte, 5) = CDbl(TextBox4)
End If
End If
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Anzeige
AW: Inhalt Kombinationsfeld in Tabelle übernehmen
22.12.2013 23:02:35
DirkR
Hallo,
kannst du die Datei mal hochladen?
Gruß DirkR

AW: Inhalt Kombinationsfeld in Tabelle übernehmen
23.12.2013 01:13:43
Park
Hallo,
natürlich, ich versuche die Datei als Anhang beizufügen.
Vielen Dank für Deine Hilfe.
https://www.herber.de/bbs/user/88610.zip
Gruß

Anzeige
AW: Inhalt Kombinationsfeld in Tabelle übernehmen
23.12.2013 13:28:00
Park
Hallo DirkR,
was soll ich sagen... Ich bin begeistert, das ist genau so wie ich es gewünscht habe.
Ich muss mir das genau anschauen, um zu verstehen, wie Du das gemacht hast.
Ich bin Dir sehr dankbar, dass ist ein echtes Weihnachtsgeschenk.
Vielen Dank für die Zeit und Mühe.
Friedvolle und fröhliche Weihnachten
Gruß
Park

Anzeige
AW: Inhalt Kombinationsfeld in Tabelle übernehmen
23.12.2013 16:02:14
DirkR
Hallo Park,
gern geschehen. Wenn du noch Fragen hast, melde dich.
Schöne Feiertage!
Gruß
Dirk

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Formel, Index oder Vergleich
Kurt

Guten Abend Zusammen,
ich habe ein kleines Problem, ich möchte in der Zelle "O10" eine Zahl eingeben
aus den Zellen mit gelben Hintergrund.
Dann soll der Preis gefunden werden und reingesetzt, rechts daneben.
Ich habe mal ein Muster beigefügt:
https://www.herber.de/bbs/user/...
06.10.2008 18:26:46
Thread-ID: 1014519
14 Beiträge
Und() bzw. ODER() in Matrixformeln
Sibylle

Hallo,
sollen in einer Matrixformel 2 Bedingungen durch UND() verknüpft werden, funktioniert dies nicht.
Was ist die Ursache?
Wichtiger: wie sieht die Lösung aus?
Gruß
Sibylle
13.02.2009 11:02:00
Thread-ID: 1050412
9 Beiträge
Funktion Säubern ins Makro einbinden
Steven

Hallo Leute,
wie kann ich per Makro meine Artikelnummern in Spalte A (mit Überschrift) von ungewollten Importüberbleibseln (Oracle) säubern, so dass am Ende reine Nummern in Spalte A über bleiben.
(Ich weiss nicht ob es dabei wichtig ist, dass die Spalte vorher sortiert wurde. Damit hab...
22.02.2009 12:07:47
Thread-ID: 1052801
5 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Anzeige
Per VBA : Erreichbarkeit von Hyperlinks überprüfen
Hyperlinks

Hallo Leute,
ich habe eine Excel-Tabelle mit zahlreichen Hyperlinks ins WWW (diverse unterschiedliche URLs), z.B. :
http://www.irgend-eine-seite.com/forum/Beitrag4711.php
http://was-soll.das/?
http://www.meinebank.ru/konto/nepper/schlepper/Bauernfaenger.asp
http://www.abc...
25.06.2009 12:50:10
Thread-ID: 1084301
8 Beiträge
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Eingebettetes Word Objekt über Excel ansprechen
Tobias

Hallo zusammen,
ich habe eine Frage. Ich habe in einem Excel Sheet ein Word Objekt eingebettet (also über Insert -> Object -> Word 2003 Dokument)
Nun habe ich da einen Text eingefügt. Jetzt möchste ich allerdings eine bestimmte Stelle mit der Replace Funktion überschreiben.
Ö...
07.07.2009 17:22:31
Thread-ID: 1086986
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige