Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA über Textfeld eine Eingabe machen

Forumthread: VBA über Textfeld eine Eingabe machen

VBA über Textfeld eine Eingabe machen
03.07.2024 10:06:55
Leo
Guten Morgen zusammen,

Ich möchte über über zwei Textfelder in einer Userform zwei Eingaben machen und diese dann in Excel eintragen.


Beispiel:
Textfeld1 "Bonn" dieser Wert soll dann im Tabellenblatt A1 geschrieben werden
Textfeld2 "München" dieser Wert soll dann im Tabellenblatt in B1 eingetragen werden

Steht in A1 & B1 schon etwas drin soll er den ersten Eintrag in C1 machen.

Ich bräuchte da nur einen Ansatz, den Rest würde ich versuchen selbst hinzubekommen.

Danke für deine Hilfe.

Gruß
Leo
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 10:17:52
Beverly
Hi Leo,

meinst du das so: 

    If Range("B1") > "" Then

        Range("C1") = Textfeld1

        Range("D1") = Textfeld2

    Else

        Range("A1") = Textfeld1

        Range("B1") = Textfeld2

    End If


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 10:37:36
Alwin Weisangler
das sollte so passen: 



        If .Cells(1, 1) = "" Then

            .Cells(1, 1) = TextBox1

            .Cells(1, 2) = TextBox2

        Else

            .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column + 1) = TextBox1

            .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column + 1) = TextBox2

        End If


Gruß Uwe
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 10:51:03
GerdL
Moin Leo

nimm zum Übertragen einen Commandbutton im Userform. 
Private Sub CommandButton1_Click()

    

    Dim rngZiel As Range

    

    If IsEmpty(Range("A1")) Then

        Set rngZiel = Range("A1")

    ElseIf IsEmpty(Range("B1")) Then

        Set rngZiel = Range("B1")

    Else

        Set rngZiel = Range("A1").End(xlToRight).Offset(0, 1)

    End If

    rngZiel = TextBox1

    rngZiel.Offset(0, 1) = TextBox2

    Set rngZiel = Nothing



End Sub


Gruß Gerd
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 11:06:31
Leo
Super! Das hilft mir schon sehr!

Ich habe den Code auch schon so angepasst für mein Programm und auf Zeile B1 erweitert.

Ich habe nur ein Problem nicht bedacht. Ich habe in der Liste und in der Userform ein Auswahlfeld mit Mitarbeitern.

In Spalte A stehen diese Mitarbeiter in der Liste eintragen. Wie kann ich jetzt den Eintrag so machen das der eintragt genau in der Zeile des jeweiligen Mitarbeiter gemacht wirst. Angenommen ich wähle Müller aus , dass dieser Eintrag auch in der Spalte neben Müller erscheint.
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 11:39:37
GerdL
Auf Verdacht. 
Private Sub CommandButton1_Click()

    

    Dim rngZiel As Range

    Dim lngZeile As Long, vntZeile As Variant

    Dim strMitarbeiter As String

    

    'strMitarbeiter = ListBox1.List(ListBox1.ListIndex, 0) 'oder:

    strMitarbeiter = Combobox1.Value

    

    vntZeile = Application.Match(strMitarbeiter, Columns(1), 0)

    

    If IsError(vntZeile) Then Exit Sub

    

    lngZeile = CLng(vntZeile)

    

    If IsEmpty(Range("B" & lngZeile)) Then

        Set rngZiel = Range("B" & lngZeile)

    ElseIf IsEmpty(Range("C" & lngZeile)) Then

        Set rngZiel = Range("C" & lngZeile)

    Else

        Set rngZiel = Range("B" & lngZeile).End(xlToRight).Offset(0, 1)

    End If

    rngZiel = TextBox1

    rngZiel.Offset(0, 1) = TextBox2

    Set rngZiel = Nothing



End Sub

Gruß Gerd
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 12:03:43
Leo
Probiere ich gleich mal aus. Danke. Ich melde mich nochmal.

Ich habe da noch eine Sache, tut mir leid 🙈 Wenn ich die Texte über die Textboxen eintrage macht er das auch. Jedoch muss ich immer nach jedem Eintrag in die Zelle rein gehen und dann noch einmal enter drücken damit die bedingte Formatierung ausgelöst wird.

Gibt es dazu etwas, womit ich nach den Eintrag über die Textboxen in die jeweilige Zelle reingeht und enter "gedrückt wird".
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 10:24:49
Leo
Ja genau.. Jedoch soll ich die Prüfung variabel sein. Also, es soll immer geprüft werden ob was in der Zelle schon eintragen ist.

Wenn nicht soll er den Eintrag in die nächste freie Zelle (rechts daneben eintragen).

Bedeutet:
Wenn in A1 nichts drin steht, dann schreib trage Eingabe ein. Wenn etwas drin steht, B1 prüfen ob etwas in Zelle schon drin steht. Dann C1 prüfen etc..

Gruß,
Leo
Anzeige
AW: VBA über Textfeld eine Eingabe machen
03.07.2024 10:41:08
Beverly
Das ging so leider nicht aus deiner Fragestellung hervor.

Wenn es immer die nächste freie Spalte sein soll dann o: 

    Dim intLetzte As Integer

    intLetzte = Cells(1, Columns.Count).End(xlToLeft).Column

    Cells(1, intLetzte + 1) = Textfeld1

    Cells(1, intLetzte + 2) = Textfeld2


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
Korrektur
03.07.2024 10:45:44
Beverly
Damit auch in A1/B1 ein Eintrag erfolgende kann: 

    Dim intLetzte As Integer

    intLetzte = Cells(1, Columns.Count).End(xlToLeft).Column

    If intLetzte = 1 Then

        Cells(1, intLetzte) = Textfeld1

        Cells(1, intLetzte + 1) = Textfeld2

    Else

        Cells(1, intLetzte + 1) = Textfeld1

        Cells(1, intLetzte + 2) = Textfeld2

    End If


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
;

Forumthreads zu verwandten Themen

VBA in Excel 2011 (Mac)
Andreas

Sehr geehrte Damen und Herren
Ich sitze vor einem Mac-Book und habe das Office 2011 installiert. Nun habe ich verschiedene Dateien mit VBA-Programmierungen übernommen. Der Compiler funktioniert nicht.
Ist es möglich, wie bei der 64-bit-Version mit einem Zusatz dies erledigen zu können...
18.04.2012 05:51:43
Thread-ID: 1259753
3 Beiträge
VBA aus mehreren Blätter eine Gesamtansicht machen
Dominik

Hallo Community,
habe folgendes Problem und bisher leider nichts passendes gefunden...
Ich möchte aus meinen Tabellenblättern eine Gesamtansicht machen.
Folgenden Code habe ich bereits gefunden und er macht diese Aufgabe sehr gut!
Aber wie müsste ich ihn ändern, wenn z.b. das Ta...
30.07.2014 10:57:43
Thread-ID: 1373079
6 Beiträge
Anzeige
VBA-Makro -chbx und cmb- funktion. auf MAC nicht
Kai

Hallo
Ich bin Exel Laie und suche Hilfe fürr:
Beim VBA-programmierte Makro (Eingabe-Maske) tun die cmb (Combibox) nicht und die chbx (multiple selection checkbox) nicht.
Nun meine Frage:
Können Sie mir weiterhelfen, das plattformunabhängig zum laufen zu bringen?
Können Sie...
18.11.2014 18:18:49
Thread-ID: 1393126
3 Beiträge
vba aus einer .xls alle tabellen zu einer machen
Ruth

Hallo,
ich habe mein erstes Makro geschrieben.
Nun würde ich mich über Hilfe freuen, was ich besser machen kann.
-ich habe ein .xls(Nr1) mit unterschiedlich vielen Tabellen (der Dateiname ändert sich jeden Monat, die Tabellennamen jede Woche
-Aufgabe:aus einem weiteren .xls...
06.05.2015 00:16:00
Thread-ID: 1424803
3 Beiträge
Anzeige
VBA-Funktion in Excel läuft nicht auf MAC-Computer
Daniel

Hallo zusammen
Folgendes VBA-Funktion in Excel mit PC erstellt läuft nicht auf einem MAC-Computer, wer kann mir da weiterhelfen, bin VBA-Anfänger.
Brauche dringend die Übersetzung für den MAC, vielen Dank!!!
Hier ist die VBA-Funktion:
Public Function Entfernung _ ( _ Start_Stras...
16.01.2016 17:36:33
Thread-ID: 1469316
2 Beiträge
Anzeige
Vba Trendlinienformel nutzbar machen
Johannes

Hallo liebe Excel-Kenner,
ich beschäftige mich jetzt seit einigen Tagen mit VBA und komme leider gerade nicht mehr weiter.....
Hintergrund:
Ich importiere Daten, sortiere mir aus den importierten Daten die für meine Zwecke benötigen Teile heraus, erzeuge mir ein XY-Diagramm, erzeuge...
05.04.2016 08:50:26
Thread-ID: 1485948
5 Beiträge
VBA auf allen Office Versionen zugaenglich machen
Tobias

Hallo Gemeinde,
Ich habe ein Problem mit meiner VBA Programmierung.
Soweit laueft die Geschichte super mein Problem ist, wenn ich meinen Kollegen diese zur Verfuegung stellen moechte:
Leider haben wir hier alle unterschiedliche Office Versionen.
Da ich unteranderem in mein Excel...
26.10.2016 17:40:32
Thread-ID: 1521803
5 Beiträge
Macro ausführen in VBA nach Zellen inhalt
Norbert

Hallo zusammen,
hier meine erste Frage an euch, da ich meine Probleme in Excel bzw. VBA bis dato über Google gelöst habe. Da ich VBA Anfänger (mit 60 Jahren) bin habe ich folgendes Problem.
Ich habe eine Tabelle max. mit 9 Zeilen ohne überschriften. Dort möchte ich, über ein Macro, Zell...
16.03.2018 17:37:49
Thread-ID: 1614656
8 Beiträge
wie kann man aus dem VBA ein Excel 4 Macro starten
Dietmar
Hi
wie kann man aus dem VBA ein Excel 4 Macro starten und dann zum VBA zurückkehren.

Dietmar

PS hier der CODE in B1 steht das Excel4 Macro welches auch startet, kehrt aber nicht in den VBA CODE zurück

Sheets("Makro1").Select
Range("B1").Select
Applicatio...
08.10.2003 09:55:21
Thread-ID: 320303
5 Beiträge
Mit VBA eine Eingabe machen
Adi
Hi, Excel-Freaks,
Habe folgendes Problem:
Ich habe aus einer Tabelle eine Eingabemaske gemacht. Nun gibt es eine Zelle in der fast immer die gleiche Eingabe gemacht wird (Zahl), manchmal muss diese Zahl nach oben oder unten angepasst werden.
Damit ich diese Zahl nicht immer wieder eintip...
20.01.2004 20:06:33
Thread-ID: 367443
3 Beiträge
Anzeige
VBA für Windows und Mac
stephan
Hallo!
Ich habe ein kleines VBA-Programm geschrieben. Hierfür konntet Ihr mir bei folgendem Makro zum öffnen einer Datei helfen. Leider funktioniert das nicht unter VBA für Macintosh.
BoOffen = False
For Each x In Workbooks
If x.Name = "Archiv.xls" Then
...
29.01.2004 11:43:40
Thread-ID: 372896
5 Beiträge
kleines suchmachienen tool in VBA
corax

also ich habe das folgendes problem:
ich möchte via VBA ein kleines suchtool bauen in dem ich 3 variablen habe:
1. der 1. teil der google links (bis zum suchbegriff)
2. der suchbegriff selber
3. der rest des google links
und das ganze soll ich dann im internet explorer (hier...
01.01.1970 00:00:00
Thread-ID: 423301
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige