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

Helfe beim Thema Text aus Macro/Inputbox in eine liste stapeln, mehrere felder in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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.... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Blog85, 25. März 2015.

  1. Blog85 Neuer User

    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
     
    Blog85, 25. März 2015
    #1
  2. Manta
    Manta Erfahrener User
    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
     
  3. Blog85 Neuer User
    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.
     
    Blog85, 25. März 2015
    #3
  4. fette Elfe Erfahrener User

    Text aus Macro/Inputbox in eine liste stapeln, mehrere felder

    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.
     
    fette Elfe, 26. März 2015
    #4
Thema:

Text aus Macro/Inputbox in eine liste stapeln, mehrere felder

Die Seite wird geladen...
  1. Text aus Macro/Inputbox in eine liste stapeln, mehrere felder - Similar Threads - Text Macro Inputbox

  2. Text in Rahmenline

    in Microsoft Word Hilfe
    Text in Rahmenline: Hallo, kann mir jemand sagen, wie ich einen Text (Beispiel: Testrahmen) wie in der Abb. in Word erstellen kann? Danke [ATTACH]
  3. Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"

    in Microsoft Excel Hilfe
    Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box": Guten Morgen zusammen, ich habe eine Frage zu Excel VBA. Folgendes Problem: Ich habe schon einen VBA Befehl für die Spalte P, der sieht folgendermaßen aus: " Private Sub Worksheet_Change(ByVal...
  4. Tabelle mit Kostenstellen soll in einer Zeile die entsprechende Niederlassung als Text ausgeben

    in Microsoft Excel Hilfe
    Tabelle mit Kostenstellen soll in einer Zeile die entsprechende Niederlassung als Text ausgeben: Hallo, habe folgendes Problem. In einer Tabelle mit Name der Niederlassung, Kennzeichen des Fahrzeugs und der dazugehörenden Kostenstelle soll nach Änderung der Kostenstelle sich in der ersten...
  5. Text-Datei nach dem erstellen drucken

    in Microsoft Excel Hilfe
    Text-Datei nach dem erstellen drucken: Hallo zusammen ich bräuchte mal eure Hilfe. Ich erzeuge mir mit Excel eine Text-Datei. Diese möchte ich direkt wenn der Inhalt eingefügt ist mit einem bestimmten Drucker ausdrucken. Die erste...
  6. Text erscheint nicht in Zelle beim Schreiben

    in Microsoft Excel Hilfe
    Text erscheint nicht in Zelle beim Schreiben: Hallo, normalerweise wenn ich schreibe, dann sieht man das direkt in der Zelle und oben in dieser Textzeile. ABER wenn ich jetzt schreibe (Version 15.30 Microsoft Excel für Mac) dann sehe ich den...
  7. Bild mit Text aus Zelle verknüpfen

    in Microsoft Excel Hilfe
    Bild mit Text aus Zelle verknüpfen: Guten Tag Ihr Lieben Ich würde gerne mal wieder auf Eure hochgeschätzte Hilfe zugreifen. Ich habe eine Datei in dem ich ALLE Puzzles (ca. 250 Stück ) meiner Frau eingegeben habe. Das habe ich im...
  8. Wie füge ich in einem Text den Befehl <Bold>Text</Bold> ein? Macro?

    in Microsoft Excel Hilfe
    Wie füge ich in einem Text den Befehl <Bold>Text</Bold> ein? Macro?: hallo Forum, suche mich schon dumm und dämlich!:mad::eek: Vielleicht hat ja ein Genie eine Lösung für mich. Ich habe eine Text in Ecxel und möchte für eine anderes Programm "Bold Tags" in diesen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden