Fëllt d'Formulairen mat Daten aus der Tabell aus

Formuléierung vum Problem

Mir hunn eng Datebank (Lëscht, Dësch - ruffen et wat Dir wëllt) mat Informatiounen iwwert Bezuelen op engem Blat Daten:

Aufgab: Dréckt séier e Cashempfang (Bezuelung, Rechnung ...) fir all gewënschte Entrée aus dëser Lëscht aus. Gitt!

Schrëtt 1. Schafen eng Form

Op engem anere Blat vum Buch (loosst eis dëst Blat nennen Form) eng eidel Form erstellen. Dir kënnt et selwer maachen, Dir kënnt fäerdeg Forme benotzen, zum Beispill vun de Websäite vum Chief Accountant Magazin oder der Microsoft Websäit geholl. Ech krut esou eppes:

An eidelen Zellen (Kont, Betrag, kritt vun etc.) wäert Daten aus dem Bezuelungstabell vun engem anere Blat kréien - e bësse méi spéit wäerte mir mat dësem beschäftegen.

Schrëtt 2: Preparéieren der Bezuelen Dësch

Ier Dir Daten aus der Tabell fir eis Form huelen, muss den Dësch liicht moderniséiert ginn. Nämlech eng eidel Kolonn op der lénker Säit vun der Tabell setzen. Mir benotze fir e Label anzeginn (loosst et den englesche Buschtaf "x") vis-à-vis vun der Linn aus där mir Daten an d'Form addéiere wëllen:

Schrëtt 3. Verknëppung den Dësch a Form

Fir Kommunikatioun benotze mir d'Funktioun VPR(VLOOKUP) - Dir kënnt méi doriwwer liesen hei. An eisem Fall, fir d'Zuel vun der Bezuelung markéiert "x" vum Dateblatt an Zell F9 op der Form anzeginn, musst Dir déi folgend Formel an Zell F9 aginn:

=VLOOKUP("x",Daten!A2:G16)

=VLOOKUP(“x”;Daten!B2:G16;2;0)

Déi. an " verständlech" iwwersat, soll d'Funktioun am Beräich A2: G16 op der Dateblatt eng Zeil mat dem Zeeche "x" ufänken a gitt eis den Inhalt vun der zweeter Kolonn vun dëser Linn, dh d'Bezuelungsnummer.

All aner Zellen op der Form ginn op déiselwecht Manéier gefëllt - nëmmen d'Kolonnnummer ännert sech an der Formel.

Fir de Betrag a Wierder ze weisen, hunn ech d'Funktioun benotzt Eegent vum PLEX Add-on.

D'Resultat soll déi folgend sinn:

Schrëtt 4. Also datt et keng zwee "x" sinn ...

Wann de Benotzer "x" géint verschidde Zeilen agitt, wäert d'VLOOKUP Funktioun nëmmen den éischte Wäert huelen deen se fënnt. Fir esou Ambiguititéit ze vermeiden, klickt riets op de Tab Tab Daten an dann Quelltext (Source Code). An der Visual Basic Editor Fënster déi erschéngt, kopéiert de folgende Code:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count) , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub  

Dëse Makro verhënnert datt de Benotzer méi wéi een "x" an der éischter Kolonn aginn.

Gutt, dat ass alles! Genéisst!

• Benotzt d'VLOOKUP Funktioun fir Wäerter z'ersetzen
• Eng verbessert Versioun vun der VLOOKUP Funktioun
• Betrag a Wierder (Propis Funktioun) vum PLEX Add-on