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

Werte aller 4 Zeilen eintragen

Forumthread: Werte aller 4 Zeilen eintragen

Werte aller 4 Zeilen eintragen
15.10.2025 15:24:59
Frank H.
Hallo Zusammen,

ich probiere mich schon seit Stunden.
Mein Ziel:
Auf einer UF befinden sich 8 TextBoxen
In TextBox1-4 stehen das Datum des jeweiligen Monats. Immer vom 1 - 4.
In TextBox5 - 8 Werte die in die Tabelle eingetragen werden sollen.
Es kann TextBox5 und 8 gefüllt sein oder TextBox5 und 6 oder 6 und 7 oder 7 und 8,
also immer nur zwei.
In Spalte A von Zeile 10 - Zeile 40 steht das Datum des Monats Januar bspw.
In Spalte3 sollen aller 4 Zeilen die Werte aus den TextBoxen 5 - 8, abh. vom Datum in den TextBoxen 1-4
eingetragen werden.
Wie stelle ich das an?
Danke im Voraus.
L.G. Frank H.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Werte aller 4 Zeilen eintragen
15.10.2025 16:13:30
Uduuh
Hallo,
lade die Mappe mit Beispieldaten hoch.

Gruß aus'm Pott
Udo
AW: Werte aller 4 Zeilen eintragen
15.10.2025 16:29:56
Frank H.
Hallo Udo,
danke.
Hier die Datei.
Ist alles noch im Aufbau.

https://www.herber.de/bbs/user/179174.xlsm

Also wo 12:15 steht soll das so weiter bis zum Monatsende fortgeführt werden.

L.G. Frank H.
Anzeige
AW: Werte aller 4 Zeilen eintragen
15.10.2025 17:10:12
Uduuh
Hallo,
sowas? 
Option Explicit

Private Sub UserForm_Initialize()

  Dim i As Integer

  For i = 1 To 4

    Controls("textbox" & i) = Cells(i + 9, 1)

  Next

  TextBox5.SetFocus

End Sub



Private Sub CommandButton1_Click()

  Dim lngRow As Variant

  Dim i As Integer

  For i = 1 To 4

    lngRow = Application.Match(CLng(CDate(Controls("Textbox" & i))), Columns(1), 0)

    If Not IsError(lngRow) Then

      Cells(lngRow, 3) = Controls("textbox" & i + 4)

    End If

  Next i

End Sub


Gruß aus'm Pott
Udo
Anzeige
AW: Werte aller 4 Zeilen eintragen
15.10.2025 18:22:25
Frank H.
Hallo Udo,

konnte erst jetzt testen.
Ich gab in TextBox 5 und 6 12:15 ein.
Leider schreibt er die beiden Werte auch nur in Zelle C10 und C11.

Kannst du nochmals schauen?

Danke und liebe Grüße.
AW: Werte aller 4 Zeilen eintragen
15.10.2025 22:28:29
Uduuh
Hallo,
und was ist daran falsch?

Gruß aus'm Pott
Udo
AW: Werte aller 4 Zeilen eintragen
16.10.2025 10:19:04
Frank H.
Guten Morgen Udo,

nichts ist daran falsch, mein Problem gewesen.
Kann ja immer nur anhand des Datums eingetragen werden.
Ich habe den Wald vor lauter Bäumen nicht gesehen,
es jetzt ohne Datum erledigt und siehe da es klappt.

Ich bitte um Verzeihung und danke die für deine Mühe!!!

L.G. Frank H.
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum