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 suchen + Wert addieren und ausgeben

    in Microsoft Excel Hilfe
    Text suchen + Wert addieren und ausgeben: Hi zusammen, ich steh hier (mit meinen bescheidenen Excelkünsten) etwas vor einem Rätsel: Es soll innerhalb eines Arbeitsblatts die Spalte B nach dem Text unitID gesucht werden. In Spalte C...
  3. VBA: Text in Aktiver Zelle finden

    in Microsoft Excel Hilfe
    VBA: Text in Aktiver Zelle finden: Hallo, ich suche nach einer einfachen Textzeile, die überprüft, ob ein bestimmtes Wort in der aktiven Zelle hinterlegt ist. Wie folgt geht das schon: If ActiveCell = "Textbeispiel" Then...
  4. Fokusverlust in Formularfeldern

    in Microsoft Word Hilfe
    Fokusverlust in Formularfeldern: Hallo zusammen, ich bin neu hier und dies ist mein erstes Thema. Ich bitte um Nachsicht, sollte es schon Beiträge zu diesem Thema geben. Ich habe bisher nirgends etwas dazu gefunden. Ihr seid...
  5. Text per Checkbox ausblenden

    in Microsoft Word Hilfe
    Text per Checkbox ausblenden: Hallo zusammen, ich möchte ein Formular erstellen, bei dem durch Anklicken einer Checkbox Textabschnitte ausgeblendet und auch nicht ausgedruckt werden. In meinem Beispieldokument habe ich dazu...
  6. Verketten,Text,Indirekt und Formatierung in einer Zelle

    in Microsoft Excel Hilfe
    Verketten,Text,Indirekt und Formatierung in einer Zelle: Hallo zusammen, ich habe folgendes Problem. Eine Exceldatei mit mehreren Tabellenblättern. Das erste Tabellenblatt funktioniert als Übersicht. Hier sollen verschiedene Zellinhalte aus den anderen...
  7. Dropdown - bei Auswahl bestimmte Texte in Zeilen einfügen

    in Microsoft Excel Hilfe
    Dropdown - bei Auswahl bestimmte Texte in Zeilen einfügen: Hallo zusammen, ich habe da mal ein kleines Problem. Aktuell arbeite ich an einer Exceltabelle wo ich ein Prüfprotokoll erstelle. Die Auswahl der Komponenten habe ich mit Dropdown-Listen...
  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