Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm

UserForm
17.01.2005 13:23:48
Andreas.R.
Hallo Excelfreunde
Komme einfach nicht auf die Lösung
Ich habe ein Tabellenblatt „Rechnungen“ mit folgenden Aufbau:
Überschriften:
Spalte „A“ =ID
Spalte „B“ =Datum
Spalte „C“ =Wert1
Spalte „D“ =Wert2
Jetzt habe ich dazu eine UserForm1 mit einer TextBox1 und TextBox2 und einem CommandButton1
Jetzt soll folgendes passieren:
Wenn ich in die TextBox1 den Wert zB. 3 eintrage (ID), soll in der Tabelle „Rechnungen“ in Spalte „A“ nach dieser ID gesucht werden und der Inhalt aus TextBox2 (ist ein Datum) in die gleiche Zeile der gefundenen ID aber in Spalte „D“ eingetragen werden.
Die Werte in den anderen Spalten dürfen dabei aber nicht gelöscht bzw. überschrieben werden.
Kann mir da von Euch einer weiterhelfen, da ich mich mit VBA noch nicht so richtig auskenne.
Vielen vielen Dank bereits im voraus
Gruß Andreas.R.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
So geht das
RR 

Private Sub CommandButton1_Click()
Dim r As Range, ID As Integer, Datum As Date
ID = TextBox1.Value
Datum = TextBox2.Value
Set r = Range("a2:a500")
For Each zelle In r
If zelle.Value = ID Then
Cells(zelle.Row, 4).Value = Datum
End If
Next
End Sub

Gruß
RR
oder so:
bernd
hallo andreas 

Private Sub CommandButton1_Click()
Dim zeile As Integer
If Range("A:A").Find(what:=TextBox1.Value, lookat:=xlWhole) Is Nothing Then
MsgBox "Den Wert gibt es nicht !"
Exit Sub
End If
zeile = Range("A:A").Find(what:=TextBox1.Value, lookat:=xlWhole).Row
Cells(zeile, 4).Value = TextBox2.Value
End Sub

bernd
Anzeige
AW: oder so:
Andreas.R.
Danke euch beiden
hat super geklapt
genau das hatte ich gesucht
Gruß Andreas.R.
und macht weiter so
ist echt ein super Forum wo man als Laie viel lernen kann

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige