Microsoft Excel

Herbers Excel/VBA-Archiv

Speicherung der Eingaben


Betrifft: Speicherung der Eingaben
von: Engin
Geschrieben am: 05.12.2018 08:52:10

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.

http://www.herber.de/bbs/user/125890.xlsx

IHr könnt gerne an meiner vorhandenen Datei arbeiten.

  

Betrifft: AW: Speicherung der Eingaben
von: UweD
Geschrieben am: 05.12.2018 11:38:49

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