Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatischen Einfügen :-)

Automatischen Einfügen :-)
08.06.2004 07:24:10
Ralf
Hallo Excel - Freunde,
ich habe in einer Spalte (Datei 1 )untereinander ca. 2000
Kundennummern. In einer anderen Datei 2 arbeite ich auch
mit Kundennummern und möchte hier gerne erreichen, dass, wenn
ich ( in Datei 2 )eine Kundennumer eingebe, und auf einen Button
klicke, sich das Makro dann in Datei 1 die Kundennumer sucht
und in der Spalte daneben das aktuelle Datum schreibt. Wenn ich die
Kundennummer am nächsten Tag nochmal eingebe, sollte das neue Datum dann
in der nächsten Spalte erscheinen usw. Hat vielleicht jemand
eine Idee, wie man dieses Problem lösen könnte ?
Viele Grüße
Ralf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatischen Einfügen :-)
Ulf
"wenn ich ( in Datei 2 )eine Kundennumer eingebe,"
wenn du wo eine eingibst?
"am nächsten Tag nochmal eingebe"
und was, wenn am selben Tag?
Ulf
AW: Automatischen Einfügen :-)
08.06.2004 19:33:25
Klaus-Dieter
Hallo Ralf,
wenn du dieses Makro in das Modul des Tabellenblattes Datei2 einfügst, dann werden die Kundennummern automatisch (ohne Betätigung eines Buttons) gesucht. Das aktuelle Datum wird in die erste freie Zelle neben der Kundennummer eingefügt. Ich bin davon ausgegangen, dass die Kundennummer im Tabellenblatt Datei 1 in Spalte A steht. Wenn das nicht so ist, mußt du dich noch mal melden.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim we As String
Dim tg As Date
tg = Format(Now, "dd.mm.yy")
we = Cells(Target.Row, Target.Column)
With Worksheets("Tabelle1").Range("a1:a500")
Set c = .Find(we, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Worksheets("Tabelle1").Cells(c.Row, Worksheets("Tabelle1") _
.Range("IV" & c.Row).End(xlToLeft).Column + 1) = tg
End If
End With
End Sub

Gruß Klaus-Dieter
Anzeige
AW: Automatischen Einfügen :-)
09.06.2004 08:15:40
Ralf
Hallo Klaus-Dieter,
vielen Dank für Deine Hilfe. Ich war ganz überrascht
und tief beeindruckt über Deine sehr gute Hilfe.
Du hast mein Problem
gut verstanden und mir scheint Deine Lösung ist
genau das, was ich suchte.
Als ich es gerade testen wollte, kam nur eine
Fehlermeldung: Fehler beim Kompilieren.
Eine Variable sei nicht definiert. ?
Markiert war dann das c in der 7. Zeile.
Kannst Du Dir das bitte nochmal anschauen ?
Gruß
Ralf
AW: Automatischen Einfügen :-)
09.06.2004 09:00:45
Klaus-Dieter
Hallo Ralf,
du hast recht, da sind nicht alle Variablen deklariert.
Bitte diese Zeilen einfügen:
Dim c As Object
Dim firstaddress As String
Gruß Klaus-Dieter
Anzeige
Klappt super vielen Dank :-)
09.06.2004 09:34:25
Ralf
Hallo Klaus-Dieter,
es funktioniert ganz super, vielen Dank !!!
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige