Office: (Office 2013) Text aus Macro/Inputbox in eine liste stapeln, mehrere felder

Hallo zusammen.

Ich bin neu in diesem Forum und mit Excel kenne ich mich auch nicht so sonderlich aus. Was Macro betrifft bin ich ein totaler Noob.

Ich möchte, mittels eines Inputboxes und regelmäßiger Eingabe, Datenbanken erstellen können.

1. Datum der Eingabe sollte automatisch zu jeder neuen Zeile hinzugefügt werden... (Datum sollte verändert werden können in der Datenbank falls nötig....)
2. Die Inputbox muss die Möglichkeit enthalten Eingabe in mehrere Felder einer Zeile zu tätigen.
3. Die Datenbanken werden zur automatischen Auswertung einbezogen, deshalb muss das Macro das beim Erstellen neuer Zeilen einbeziehen. Sodass ich nicht ständig manuell die Datenfelder neu markieren muss.


Danke für die Antworten vorab.

MfG

 

Kannst du mal eine Beispieldatei hochladen in der man sieht, wie das mal aussehen soll?

So kann ich mir gerade wenig darunter vorstellen.

MfG
Manta

 

Ja, sicherlich.

Hier ist das.

Zum Ablauf.
In die grauen Felder soll erst mal alles eingetippt werden, dann drückt man auf Enter, und das ganze erscheint dann in der Liste, ersten Zeile, weiter unten.

 

Hallo Blog85,

hier mal ein erster Ansatz wie es gehen könnte:

Code:

Option Explicit

Dim lngLastRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Me
        If Target.Row = 2 And Target.Column = 10 Then               ' Abfrage ob "J2" (der Enter-Button) gedrückt wurde
            
            lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1    ' letzte benutzte Zeile ermitteln und um 1 erhöhen
            
            .Range(.Cells(4, 1), .Cells(4, 10)).Copy                ' Format der ersten Datenzeile auf neue (unterste) Zeile übertragen
            .Range(.Cells(lngLastRow, 1), .Cells(lngLastRow, 10)).PasteSpecial _
                Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            
            .Cells(lngLastRow, 1) = Date                            ' aktuelles Datum in Spalte A eintragen
            
            .Range(.Cells(2, 2), .Cells(2, 9)).Copy                 ' Werte der Eingabezeile auf neue (unterste) Zeile übertragen
            .Range(.Cells(lngLastRow, 2), .Cells(lngLastRow, 9)).PasteSpecial _
                Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            
        End If
    End With
    
End Sub

Den Anhang Example 1.xlsm betrachten

Generell würde ich solche Eingaben aber eher nicht über das Blatt, sondern über eine gesonderte Maske machen.
Aber für alles weitere sind Deine Angaben nicht präzise und ausführlich genug.
Vor allem Deinen Punkt 3 kann ich nicht nachvollziehen. Was meinst Du damit? Und inwieweit betrifft dies Deine Fragestellung hier?

Ich hoffe geholfen zu haben.