Einpflegen von Daten und automatische Listung

[andreas_neuling]

Hallo an alle..

ich habe mal wieder eine Frage und bin zuversichtlich, dass ihr die lösen könnt:

Ich baue mir gerade in Excel eine Datenbank auf. Hier würde ich gerne stets einige Daten in vorgefertigte Felder händisch eintragen.
Ziel soll es sein, dass diese eingetragenen Daten automatisch in eine vornummerierte Liste eingepflegt.

Wie in diesem Beispiel:
Bei grün wird händisch eingetragen und bei gelb sollten die eingetragenen Daten erscheinen.
In diesem Fall unter Nr. 1 Projekt: Kita1, Name: Mustermann, Vorname: Max
Dann ist die Eingabe abgeschlossen.
Dann würde ich gerne neue Daten bei grün eintragen und diese sollten dann auf die Nr. 2 gesetzt werden.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Danke für eure Hilfe

LG Andreas_Neuling

[GMG-CC]

Moin,

schau mal hier unter der Überschrift Datenmaske.

[andreas_neuling]

Mjhhhhhh

komme damit nicht klar, gibt es andere Ideen?

[WillWissen]

Hi,

du müsstest deine Tabelle etwas anders aufbauen - siehe Bild. Darin habe ich auch schon die Datenmaske mit dem 2. Eintrag gefüllt.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Nach Klick auf Schließen siehst du dann den erfolgten Eintrag in deine Tabelle

[
Bild bitte so als Datei hochladen: Klick mich!
]

Die Datenmaske holst du dir über Menüband anpassen==> links Befehle auswählen: Alle Befehle==> Maske suchen und diese in eine bestehende oder neue Gruppe einfügen.

[Rabe]

Hi Andreas,

Ich baue mir gerade in Excel eine Datenbank auf. Hier würde ich gerne stets einige Daten in vorgefertigte Felder händisch eintragen.
Ziel soll es sein, dass diese eingetragenen Daten automatisch in eine vornummerierte Liste eingepflegt.

so?

Sub Kunde_eintragen()
' 
' Kunde_eintragen Makro 
' 
Dim loLetzte As Long
' 

   loLetzte = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row                  ' letzte belegte in Spalte B (2) 

   Range("B1").Copy
   Range("B" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
   
   Range("B3").Copy
   Range("C" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
   Range("B5").Copy
   Range("D" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
   Application.CutCopyMode = False
End Sub

  Kunde übertragen.xlsb (Größe: 25,39 KB / Downloads: 3)

[RPP63]

Hallo!
Warum so kompliziert (und praxisfern) (gilt dem Andreas)?
- A1: Nr., B1: Projekt, C1: Name, D1: Vorname
- in A2: =Zeile(A1)
- A2 markieren, Einfügen, Tabelle

Jetzt kannst Du Deine Projekte eingeben, Fortbewegung mittels Tab.
Dadurch wird automatisch eine neue Zeile eingefügt und die Nr. wird hochgezählt.

	A	B	C	D
1	Nr.	Projekt	Name	Vorname
2	1	a	Name1	VN1
3	2

Formeln der Tabelle

Zelle Formel A2 =ZEILE(A1) A3 =ZEILE(A2)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf

[Kuwer]

Hallo Andreas,

so ginge es per VBA automatisch bei Eingabe:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rngE As Range
  Dim varE(1 To 3) As Variant
  
  Set rngE = Range("B1,B3,B5")
  If Not Application.Intersect(Target, rngE) Is Nothing Then
    On Error Resume Next
    Application.EnableEvents = False
    varE(1) = rngE.Areas(1).Value
    varE(2) = rngE.Areas(2).Value
    varE(3) = rngE.Areas(3).Value
    If Len(varE(1)) * Len(varE(2)) * Len(varE(3)) Then
      With Range(Cells(9, 1), Cells(Rows.Count, 1).End(xlUp))
        .Offset(.Rows.Count, 0).Cells(1).Value = Application.Max(.Columns(1)) + 1
        .Offset(.Rows.Count, 1).Cells(1).Value = varE(1)
        .Offset(.Rows.Count, 2).Cells(1).Value = varE(2)
        .Offset(.Rows.Count, 3).Cells(1).Value = varE(3)
      End With
      rngE = ""
      rngE.Areas(1).Select
    End If
    Application.EnableEvents = True
    On Error GoTo 0
  End If
End Sub

Der Code kommt in das schon vorhandene VBA-Modul der entsprechenden Tabelle.

Gruß Uwe