Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox beim speichern eine Zahl zuweisen

ComboBox beim speichern eine Zahl zuweisen
24.06.2016 22:06:50
Marco
Hallihallo =D ich bin es wieder und habe eine kleine Frage an diese große Community. Wie kann ich dem ausgewählten Inhalt einer Combox den ich durch betätigen eines Buttoms in einer Zelle eines Tabellenblatts abspeicher zusätzlich eine Zahl zuweisen die sich automatisch erhöht?
z. B. in der Combox steht Hans ich klicke auf speichern und in der Zelle soll dann Hans1 stehen. wenn ich jetzt ein zweites mal Hans in der Combobox auswähle und auf speichern klicke soll Hans2 geschrieben werden damit ich keine doppelten einträge habe.
Aktuell sieht mein Code so aus:
Private Sub Speichern_Click()
'Speichern der Maßnahmen-Details in das Tabellenblatt "Database".
With Sheets("Database")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If loLetzte

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 09:12:03
Hajo_Zi
.Cells(loLetzte, 1).Value = Name & Application.CountIf(Columns(1), "Peter*")+1

AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 09:47:14
Marco
Danke Hajo.
Eine frage zu dem Code, du schreibst "Peter*" wieso das? Ist das ein Beispiel? Die Namen die ich in der ComboBox auswähle sind unterschiedlich. Muss ich vll da etwas anderes hinschreiben?
Grüße Marco

AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 10:00:47
Hajo_Zi
Hallo Marco,
ja, ich baue keine Datei nach.
Man könnte vermuten da muss Name stehen.
Gruß Hajo

AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 10:51:11
Marco
Danke Hajo ich habe es geändert. Ich dachte "Peter" in Anführungsstrichen steht für einen festen vorgegebenen Text und nicht für die Variable. Es Funktioniert jetzt, aber ich habe mein Problem falsch dargestellt sorry.
In der Combobox stehen z.B. 10 Namen ich wähle einen aus klicke auf speichern und dann steht in der Tabelle Hans1, wenn ich das jetzt wiederhole steht unter Hans1 wieder Hans1 und nicht Hans2. In der Combobox steht immer nur Hans ohne Zahl da. Ich glaube beim speichern müsste zuerst der Text aus der Combobox mit 1 addiert werden dann mit dem Wert in der Tabelle verglichen werden und je nachdem ob der Name mit der Zahl z.B. Hans1 oder Hans2 da steht um eins erhöht werden zu Hans3. Ich dachte das es vll mit einer If Schleife geht, aber bei mir meckert die immer
Private Sub Speichern_Click()
'Speichern der Details in das Tabellenblatt "Database".
With Sheets("Database")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If loLetzte
Habe ih da einen Logikfehler drin?
Grüße Marco

Anzeige
AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 10:58:39
Hajo_Zi
Hallo Marco,
ich hatte auf den Code im ersten Beitrag geantwortet.
Sehe ich das richtig, der ist nicht mehr aktuell?
Ich bin dann raus. Was wohl auch daran liegt das ich nicht auf fremde Rechner schaue.
Gruß Hajo

AW: ComboBox beim speichern eine Zahl zuweisen
25.06.2016 12:04:57
Marco
Ja Sie haben auf den ersten Code geantwortet und die erste Frage auch super beantwortet. Ich habe nur eine zweite Frage gestellt weil ich die erste falsch gestellt habe ich kann doch deswegen kein neues Thema aufmachen. Aber der Code ist doch der gleiche ich habe nur eine Zeile geändert bzw. versucht mein problem zu lösen.
Was meinen Sie damit das Sie nicht auf fremde Rechner schauen? Hätte ich die Datei hochladen sollen? Tut mir leid das ich das nicht gleich getan habe ich musste erst viele sachen löschen.
Wenn Sie sich mein Problem jetzt doch noch annehmen würden danke wenn nicht auch ok
https://www.herber.de/bbs/user/106517.xlsm
Grüße Marco
Anzeige

301 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Einen bestimmten Namen definieren u. Wert zuweisen
Peter

Guten Abend
In meinem Code verwende ich in einem Code den Namen "Anzahl", dem in der Regel mittels "Namen definieren" eine Zahl zugewiesen wurde.
Es kann vorkommen, dass dies in einzelnen Workbooks nicht der Fall ist. In diesem Fall möchte ich diesen Namen kreieren und den Wert 100 zuwe...
27.10.2008 16:47:13
Thread-ID: 1019675
4 Beiträge
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Anzeige
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
Makro beim verlassen einer Zelle
Dirk

Hallo zusammen,
hier wahrscheinlich zum x.ten ma die Frage; Kann ich beim Verlassen einer Zelle mit Return im Arbeitsblatt en Makro ablaufen lassen?
Im Archiv habe ich leider nichts gefunden
04.02.2009 22:09:38
Thread-ID: 1047231
5 Beiträge
der variable einen Wert zuweisen
Frank

Moin moin,
bin ein bisschen aus der Übung..... ;0)
dim Zahl as integer
range("a1").select
ActiveCell.FormulaR1C1 = "=Rand()"
Zahl = Range("A1").Value
anschließend möchte ich mit der Zufallszahl in der Variable Zahl weitermachen.....
Aber in der Variable Zahl bleibt h...
24.02.2009 12:05:15
Thread-ID: 1053441
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
3
1
4
5
4
2
4
4
14
1
8
1
2
9
3
5
2
2
4
7
9
13
3