Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopiern von Zelle nach.. wenn..

Forumthread: Kopiern von Zelle nach.. wenn..

Kopiern von Zelle nach.. wenn..
08.03.2007 10:27:20
Zelle
Hallo,
ich stehe vor einem für mich unlösbaren Problem und hoffe ihr könnt mir helfen !
Ausgangslage: Tabelle 1 - erste Zeile - pro Spalte das Datum (z.b. 2007-03-08),... nächste Spalte (2007-03-09) usw...;in der zeile 2-4 - dort sollen bestimmt werte von tabelle 2 kopiert werden.
Tabelle 2 - Zeile 1-3 bestimmter wert.
Aufgabe: per makro sollen die Werte von Tabelle2, Zeile 1-3, in die jene Spalte in Tabelle 1 kopiert werden, die dem aktuelle Datum ( =HEUTE() ) entspricht.
Hat da jemand von euch eine Idee?
Danke und LG
Georg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kopiern von Zelle nach.. wenn..
08.03.2007 11:52:28
Zelle
Hi Georg,
da du für Tabelle 2 kein Quellrange angegeben hast, hab ich A1:A3 angenommen
Sub zeile()
Dim spalte As Range, col As Integer
Set spalte = Sheets(1).UsedRange.Find(Date)
If spalte Is Nothing Then Exit Sub
col = spalte.Column
Sheets(1).Range(Cells(2, col), Cells(4, col)) = Sheets(2).Range("a1:a3").Value
End Sub

Gruss Harald
Anzeige
AW: Kopiern von Zelle nach.. wenn..
08.03.2007 11:54:23
Zelle
Falls in Tabelle 1 das Tagesdatum auch in anderen Zeilen stehen kann, nimm besser das
Set spalte = Sheets(1).Rows(1).Find(Date)
Gruss Harald
AW: Kopiern von Zelle nach.. wenn..
08.03.2007 13:23:32
Zelle
Hallo,
danke für die schnelle Hilfe.
So ähnlich hätte ich mir das auch gedacht.
bekomme aber bei
col=spalte.column
die Fehlermeldung
"Objektvariable doer WITH_Blockfariable nicht festgelegt.
Eine Idee ?
Danke
GE
Anzeige
Bei mir klappt's. Lasse offen owT
08.03.2007 13:28:48
Harald
Gruss Harald
AW: Bei mir klappt's. Lasse offen owT
08.03.2007 13:37:23
Georg
Hallo,
mir gehen auch die Ideen aus, keine Ahnung warum die Fehlermeldung kommt,
da die Variable col ja definiert ist.
Mh......
Danke trotzdem
Georg
AW: Bei mir klappt's. Lasse offen owT
08.03.2007 13:50:44
Georg
Hallo, eine hab ich noch.
Was komisch ist, ist das die Variable Spalte nach der Zeile
Set spalte = Sheets("Tabelle1").Rows(1).Find(Date)
den Wert "nothing" erhält !
LG
Georg
Anzeige
AW: Bei mir klappt's. Lasse offen owT
08.03.2007 14:01:00
Harald
Ich hab in meiner Testzelle das Tagesdatum und benutzerdefiniert wie in deiner Frage formatiert.
Hat er gefunden.
Und wenn er es nicht findet gehts zu exit sub (ohne Fehlermeldung)
Bin überfragt. Sorry
Gruss Harald
Ich habs !
08.03.2007 14:13:00
Georg
Hallo Harald,
ich hab den Fehler gefunden - sauplöde.
in der Zeile1 pro spalte steht das Datum, Spalte A 2007-03-08, Spalte B 2007-03-09.
Warum auch immer (nicht nachfragen) steht in Spalte A nicht das heutige Datum, sondern die Formel =HEUTE(). Damit hat das Makro das Problem, ich habs geändert und schon funkts.
Danke für deine Hilfe
GE
Anzeige
Prima. Danke für die Rückmeldung owT
09.03.2007 08:15:00
Harald
Gruss Harald
;

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