Excel VBA-Code nötig?

Wenn K1 geändert wird soll es in der Tabelle2 den vorherigen Wert auflisten. Zum Beispiel Zelle K1 ändert sich von 260 zu 300 dann soll der Wert 260 aufgelistet werden in der Tabelle2. Wenn nun 300 zu 290 geändert wird soll 300 gespeichert werden. Das ganze soll dann in Tabelle2 so in etwa aussehen bis jetzt A1 = 260 A2 = 300 A3 = 290.

Ich habe bereits nach einer Lösung gesucht und diese erfordert jedoch etwas mit VBA-Code von dem ich nicht so viel Ahnung habe. Ich weiss noch nicht einmal wie ich in Spalte A:A die Namen der Kunden zählen kann, dabei jedoch die doppelten ignoriere :`)

Ich danke bereits im voraus

1 Antwort

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

13.01.2020, 21:35

Diesen Code im Workbook hinterlegen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim i

If Target.Row = 1 And Target.Column = 11 Then

i = WorksheetFunction.CountA(Worksheets("Tabelle2").Range("A1:A50000")) + 1

Application.EnableEvents = False

Worksheets("Tabelle2").Cells(i, 1).Value = Target.Value

Application.EnableEvents = True

End If

End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim i

If Target.Row = 1 And Target.Column = 11 Then

i = WorksheetFunction.CountA(Worksheets("Tabelle2").Range("A1:A50000")) + 1

Application.EnableEvents = False

Worksheets("Tabelle2").Cells(i, 1).Value = Target.Value

Application.EnableEvents = True

End If

ExcelNeuling14

Fragesteller

15.01.2020, 17:39

Danke vielmals für deine Antwort. Jedoch habe ich weitere Fragen diesbezüglich. Was wenn Tabelle2 bei mir z.B `Kosten` heisst? muss ich das bei deiner Formel dann auch anpassen? Wo passe ich die Felder an, jetzt in meinem Beispiel K1 (Den zu speichernden Wert) und A1 (Einfügeort)?

IchMalWiederXY

16.01.2020, 11:49

@ExcelNeuling14

Ja. Worksheets("NameDeinesBlattes").
oder, wenn du weißt welche laufende Nummer dein Blatt hat
Worksheets(1).
Worksheets(2).
Der Code zeigt nur beispielhaft wie es funktioniert. Für deine spezifischen Zwecke sind Bereiche oder Benennungen anzupassen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zur Frage

Exel VBA Code?

Hallo Zusammen,

Ich bräuchte eine VBA Code, vielleicht kann mir da ein Experte weiter helfen. Ich möchte, wenn ich auf die Schaltfläche klicke in Tabelle2 (Siehe Bilder), dass Exel mir die Werte die ich gelb markiert habe, kopiert und anschließend in Tabelle1 immer in die leere Zeile die jeweiligen Werte einfügt. Ich hoffe ich habe es ausreichend erklärt.

Würde mich freuen wenn mir jemand da helfen könnte :)

...zur Frage

VBA Find Methode findet nur Zahlen 1 bis 9, nicht >10 (falscher Datentyp?

Hallo Zusammen,

wieder eine VBA Frage meinerseits:
Ich vermute, dass es bei folgender Zeile zu einem Problem kommt, wenn Zahlen >9 gefunden werden sollen:
stunden = Worksheets("Tabelle2").Cells(ActiveCell.Row, Range("1:1").Find(eingabe).Offset(0, 0).Column)

"stunden" und "eingabe" sind jeweils als double definiert.
Bei den zahlen 1-9 habe ich meinen Code bisher probiert, aber ab 10 kommt es zum Crash und an der Zelle steht, dass folgende Meldung: "ein in der Formel verwendeter wert ist vom falschen Datentyp"

Vielen Dank für jede Antwort bereits im Voraus!
Liebe Grüße Leo

...zur Frage

EXCEL VBA: Zeitstempel automatisch setzen sobald Zelle nicht leer?

Hallo,

ich suche nun schon länger eine Lösung für mein Problem und komme im Moment nicht so recht weiter weil mir VBA irgendwo anscheinend meine Formel abbricht - keine ahnung, bin ja auch blutiger Anfänger.

Versuche nun schon seit Stunden es hinzubekommen, dass in jeder Zeile von Spalte A ein Zeitstempel gesetzt wird, wenn in Spalte B ein Wert (egal ob text oder Zeit) gesetzt ist.

Den Zeitstempel schaff ich schon zu setzen - aber noch nicht mit der Bedingung dass er automatisch gesetzt werden soll wenn jemand in Spalte B was eintippt. Möchte also auch vermeiden, dass jemand mit einen Buttonklick oder dem Aufrufen des Makros dieses erst starten muss um den Zeitstempel zu setzen. <br>

Mein Code bisher:

Sub ZeitstempelMakro()

If Not IsEmpty("B:B) then

Columns("A:A").Select

Selection.Find(What:="").Activate

ActiveCell.FormulaR1C1 = Format(Now, "dd.mm.yyyy hh:mm:ss")

End If

End Sub

Vielleicht kann mir jemand helfen und mir den kleinen Logikfehler finden helfen

danke!

...zur Frage

Werte untereinander in Excel erfassen - VBA

Frage an die Excel Profis und VBA Experten. Die Aufgabenstellung baut aufeinander auf.

Aufgabenstellung: Zelle A1 soll als Eingabefeld in Excel dienen. Alle Werte, die in A1 eingegeben werden, sollen einfach untereinander ausgegeben werden, also in a2, a3, a4 usw. Die Cursormarkierung (damit meine ich die schwarze Umrahmung der aktiven Zelle) bleibt aber in A1.
Aufgabenstellung: Aufbauend auf Aufgabenstellung 1 soll nun nachdem in A1 ein Wert eingegeben wurde, der Wert wie gehabt in A2 erscheinen. Die schwarze Umrahmung soll aber jedoch zunächst in B2 erscheinen um einen weiteren Wert einzugeben. Erst nach Eingabe eines Wertes in B2 soll die Umrahmung wieder in A1 springen, damit ein nächster Wert eingegeben werden kann, der dann in Zelle A3 erscheint. Dann springt die Cursormarkierung in B3, um einen Wert einzugeben. Danach wieder in A1 usw.
Aufgabenstellung: Aubauend auf Aufgabenstellung 2 sollen die Werte, die in den Zellen der Spalte B eingegeben werden, mit den Werten der Spalte A im Reiter "Tabelle2" verglichen werden. Sofern der eingegebene Wert in der Spalte B mit denen der Spalte A (Reiter Tabelle2) übereinstimmt, soll Excel ein Fenster öffnen, in dem "Wert gefunden" steht.

Ist das in Excel 2003 per VBA für alle 3 Aufgabenstellungen möglich?

...zur Frage

Access VBA-Code "Wert setzen"

Guten Tag gutefrage.net Community

Ich habe ein Problem in Access, wie man sieht^^

Ich vresuche in einer Datenbank einen Wert, der von einem Formular aus einer Tabelle genommen wird in einer anderen Tabelle zu diesem zu ändern.

Jedoch bringe ich das nur mit Makros, die jedoch die ganze DB nach einer Zeut zumüllen.^^

Vielleicht kann mir jemand helfen, das Makro "SetzenWert" gegen einen VBA-Code zu tauschen, so könnte ich mich in VBA auch gleich weiterbilden. VBA ist immerhin Neuland für mich, wie das Internet für Angela Merkel ;)

Vielen Dank schonmal im Vorraus! :)

...zur Frage

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

Excel VBA - AutoFilter richtig einstellen?

Hallo!

ich versuche derzeit folgendes, ohne mich wirklich mit VBA auszukennen :D

Ich habe zwei Tabellen, Tabelle1 und Tabelle2. Auf Tabelle 1 habe ich mehrere Kategorie-Namen (im Beispiel die Zahlen) und möchte diese quasi "Selektieren", um damit einen Filter für meine Daten in Tabelle2 zu setzen, um dort nur die Daten zur jeweiligen gefilterten Kategorie anzuzeigen.

Zur Zeit sieht es wie folgt aus (vereinfachte Darstellung mit Zahlen als Kategorie):

Tabelle 1:

Tabelle 2 (Zahlen = Kategorie, Buchstaben = Daten):

Und mein Code

Sub Filtern()
Dim Kriterium As String Dim Counter Counter = 0
For i = 1 To 5     If Cells(i, 1) = "X" Then Kriterium = Kriterium + """" + CStr(Cells(i, 2)) + """" + ","     Counter = Counter + 1      Next i
Dim Liste As Range Set Liste = Worksheets("Tabelle2").Range("A2:B10") Liste.AutoFilter Liste.AutoFilter Field:=1, Criteria1:=(Kriterium)

End Sub

Zur Erklärung was ich mir dabei gedacht habe:

In der For-Schleife gehe ich erstmal die Tabelle 1 durch und schaue, wo ein X ist und füge dann entsprechenden Kategorie-Namen aus der Zelle daneben meinem String hinzu.

Dies scheint auch zu klappen, eine Test-Ausgabe via MsgBox hat mir das Ganze so ausgegeben wie ich wollte (so: "3","5",)

Im nächsten Schritt sage ich, wo die Daten sind die zu filtern sind und wende dann "AutoFilter" an, um den Filter zu setzen. Dabei sage ich dann, dass er in Feld 1 die Kriterien suchen soll. Als Kriterium gebe ich ihm meinen vorher erstellen String, welches er als ein Array verarbeiten soll, um alle Kriterien zu berücksichtigen.

Das Ergebnis sieht allerdings nur so aus:

Ich kenne mich wie gesagt eigentlich überhaupt nicht mit VBA aus, daher wäre gut möglich, dass mein Code ein zusammengeschuhsterer Haufen Müll ist, aber naja... :D

Sieht da jemand zufällig den Fehler?

...zur Frage

Exel VBA? wert automatisch löschen?

Folgenden Code habe ich..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$5" Then

Range("G5").Value = Range("G5").Value + Target.Value

End If

End Sub

Wie bekomme ich es hin, das sich nach eingabe von E5 der wert automatisch wieder löscht?

danke schon mal

...zur Frage

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

...zur Frage

Excel VBA - Dropdown Kombinationsfeld Test auslesen?

Hallo Community, ich hab zwar etwas Erfahrung in Visual Basic aber verzweifle an VBA. Folgendes Problem habe ich.

Ich habe ein Kombinationsfeld (Formularsteuerelement) „Dropdown 13“

Dieses Kombinationsfeld ist schon mit einer Liste gefüllt.

Bsp. Text1 Text2 Text3 ….

Ich möchte im VBA Code den Wert bzw. Text auslesen, eigentlich ganz einfach.

Bsp.

Dim Wert as String

If Dropdown13.Text = “Text1” Then

Wert = Text1

End If

Irgendwie so in der Art.

Ich möchte mit dem „Wert“ den ich aus dem Dropdown13 herauslese weiter programmieren.

Das funktioniert auf diese Art leider nicht?

Grüße Michael

...zur Frage

VBA If else then?

Hallo!

Ich möchte ein Tool in VBA erstellen. Basis bildet eine Tabelle, in der Teile gelistet und deren Zustand eingetragen werden sollen. Entsprechend dem Zustand ergibt sich ein Wert von 5EUR doer 10EUR. Soweit habe ich es in VBA schon regeln können, nur soll die Liste beliebig lang werden und ich möchte nicht für die kommenden 300+ Zeilen die If-Else Formel immer aufs neue tippen. Gibt es eine Vereinfachung dafür?

Danke Im Voraus!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen