Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
124to128
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
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte automatisch rücken

Werte automatisch rücken
06.06.2002 19:39:13
Gerald
Hallo, folgendes problem:

in Zelle C1 steht ein Wert der alle 3 Wochen neu generiert wird.
Wenn ich nun in Zelle B1 ein Datum eingebe, soll Excel diesen aktuellen Wert in Zelle A1 anzeigen.
Wenn ein neues datum in Zelle B1 eingegeben wird, soll der aktuelle Wert aus Zelle C1 in A2 angezeigt werden. Beim nächsten Datum in B1, soll der Wert in Zelle A3 angezeigt werden.
Aber nun kommt es ganz dicke:
Wenn ich nun wieder ein datum in Zelle B1 eingebe, soll der Wert in Zelle A1 verschwinden, der Wert aus Zelle A2 auf A1 rücken und der Wert aus A3 auf A2 rücken, uns schließlich der aktuelle Wert aus C1 in Zelle A3 angezeigt werden.

Ich hoffe auf ein wenig Hilfe.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Werte automatisch rücken
06.06.2002 19:58:37
Uwe Wassmann
Hi,

probier mal:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

If Cells(2, 1) <> "" And Cells(3, 1) <> "" Then
wert = Cells(3, 1)
If Cells(1, 1) = "" And Cells(1, 2) = "" And Cells(1, 3) = "" Then
Cells(1, 1) = wert
GoTo ende
End If
If Cells(1, 1) <> "" And Cells(1, 2) = "" And Cells(1, 3) = "" Then
Cells(1, 2) = wert
GoTo ende
End If
If Cells(1, 1) <> "" And Cells(1, 2) <> "" And Cells(1, 3) = "" Then
Cells(1, 3) = wert
GoTo ende
End If
If Cells(1, 1) <> "" And Cells(1, 2) <> "" And Cells(1, 3) <> "" Then
wert1 = Cells(1, 2)
wert2 = Cells(1, 3)
Cells(1, 1) = wert1
Cells(1, 2) = wert2
Cells(1, 3) = wert
End If
End If
ende:
Cells(3, 1).ClearContents
End Sub


gruß
Uwe

Anzeige
Re: Werte automatisch rücken
06.06.2002 20:11:52
WernerB.
Hallo Gerald,

teste doch mal diesen Code.

Schreibe/kopiere das nachstehende Makro in das Klassenmodul des betreffenden Tabellenblattes.

- Mache dazu einen Rechtsklick auf den Tabellennamen.
- Klicke dann auf "Code anzeigen".
- Automatisch öffnen sich nun der VB-Editor und das Klassenmodul des betreffenden Tabellenblattes.
- Schreibe/kopiere das nachstehende Makro in die große weiße Fläche auf der rechten Seite.
- Zurück zum "normalen" Excel geht's mit Alt + Q.
- Fertig.


Viel Erfolg wünscht
WernerB.

Re: Werte automatisch rücken
07.06.2002 07:14:52
Gerald
hallo Werner,
danke für den Tip, klappt einwandfrei.
Ist es eigentlich auch möglich in einer weiteren Spalte zu jedem Wert das datum automatisch zuzuordnen
Anzeige
Re: Werte automatisch rücken
07.06.2002 20:02:36
WernerB.
Hallo Gerald,

da die Spalten A, B, und C (zumindest in der Zeile 1) bereits belegt sind, habe ich für die Datumseinträge die Spalte D gewählt.

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige