Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speicherung der Eingaben

Speicherung der Eingaben
05.12.2018 08:52:10
Engin
Hallo zusammen,
ich habe eine dringende Bitte und zwar habe ich eine Datei vorbereitet mit drei Arbeitsblätter.
Arbeitsblatt 1 ist die Eingabe, dort möchte ich in Zelle B2 das Datum auswählen und anschließen in B4 und B5 die Zahlen eingeben.
Dann soll in der Ausgabe in der jeweiligen Position der Wert eingetragen und gespeichert werden. D. h, wenn ich ein anderes Datum auswähle dann soll der vorherige Wert in der Zelle mit dem alten Datum erhalten bleiben.
Würde mich sehr freuen, wenn Ihr eine Lösung dafür hättet.
https://www.herber.de/bbs/user/125890.xlsx
IHr könnt gerne an meiner vorhandenen Datei arbeiten.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherung der Eingaben
05.12.2018 11:38:49
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter von "Eingabe"
- Code anzeigen
- diesen Code reinkopieren
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim TB, Datum As Date, Besucher As Integer, Kaeufer As Integer, SP 
    Set TB = Sheets("Ausgabe") 
    If Not Intersect(Range("B5"), Target) Is Nothing Then 
         
        Datum = Target.Offset(-3) 
        Besucher = Target.Offset(-1) 
        Kaeufer = Target 
         
        If IsDate(Datum) Then 
            If IsNumeric(Besucher) And IsNumeric(Kaeufer) Then 
                SP = WorksheetFunction.Match(CDbl(Datum), TB.Rows(2), 0) 
                If SP > 0 Then 
                    TB.Cells(3, SP) = Besucher 
                    TB.Cells(4, SP) = Kaeufer 
                     
                End If 
            Else 
                MsgBox "Fehler Datum" 
            End If 
        End If 
    End If 
 
End Sub
das Ereignis wird bei Änderung in B5 ausgelöst..
LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige