eigene datenmaske

Willi Meier · 2024-02-16T11:39:48+00:00

Hallo Fachleute, ich gebe über eine eigene Datenmaske (Tabelle1) Daten in eine Datenbank (Tabelle2) ein. beim übertragen in die Datenbank blockt ganz kurz das Eintragen in die Datenbank auf, das möchte ich aber vermeiden. Ich weiß, es gibt ein Befehl in VBA daß das vermeidet. Leider finde ich den Beitrag im Internet nicht mehr. Ich würde mich freuen wenn mir einer von Euch hier helfen kann. Vorab vielen Dank! Willi Meier

Hallo Leute, vielen Dank für eure schnelle Rückmeldung.
Der Befehl von Uwe hat nicht funktioniert, kann auch sein daß ich den Befehl anders platzieren muß.
Das Tutorial, in dem der Befehl erläutert wurde, finde ich vielleicht noch.
Ich habe mal meinen Code hier eingetragen. Die Feinheiten fehlen noch.
Vielleicht hat Jemand einen Tipp?
Mfg Willi

Sub SpeichernEinnahmen()
'Application.screeupdating = False

Dim Konto As String
Dim Datum As String
Dim Buchungstext As String
Dim Kategorie As String
Dim Info As String
Dim Betrag As Double
Dim aeu As String
Dim steuerrelevant As String

Konto = Range("E7")
Datum = Range("E5")
Buchungstext = Range("E9")
Kategorie = Range("E11")
Info = Range("E15")
Betrag = Range("E13")
steuerrelevant = Range("E17")
aeu = "Einnahmen"

Worksheets("Datenbank").Select
Worksheets("Datenbank").Range("A7").Select
If Worksheets("Datenbank").Range("A7").Offset(1, 0) > "" Then
Worksheets("Datenbank").Range("A7").End(xlDown).Select
End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = Konto
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Datum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Buchungstext
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kategorie
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Info
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Betrag
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Einnahmen"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = steuerrelevant

Worksheets("Einnahmen").Select
Range("e9") = ""
Range("e11") = ""
Range("e13") = ""
Range("e15") = ""
Range("G7") = ""
Range("e5").Select

End Sub

Hallo Willi,

das Flakern kommt von den "Select". Diese erscheinen nur, weil Du den Makrorekorder verwendet hast (sehr gut), und jedesmal eine Zelle ausgewählt, bevor etwas gemacht wurde. Wenn aber VBA die Sache erledigt, kann die Aktion direkt auf der Zielzelle gemacht werden, ohne diese zu selektieren.

Es sieht dann so aus. Ich hoffe, Du erkennst deinen Code:

Sub SpeichernEinnahmen()

Dim wsQ As Worksheet ' Q wie Quelle



    Application.ScreenUpdating = False

    Application.EnableEvents = False

    

    Set wsQ = Worksheets("Einnahmen")

    With Worksheets("Datenbank").Cells(Rows.Count, "A").End(xlUp).Offset(1).EntireRow

    'A1, B1, usw. sind relative Adressierung eine einzelne Zeile (EntireRow)

        .Range("A1").Value = wsQ.Range("E7").Value 'Konto

        .Range("B1").Value = wsQ.Range("E5").Value 'Datum

        .Range("C1").Value = wsQ.Range("E9").Value 'Buchungstext

        .Range("D1").Value = wsQ.Range("E11").Value 'Kategorie

        .Range("E1").Value = wsQ.Range("E15").Value 'Info

        .Range("F1").Value = wsQ.Range("E13").Value 'Betrag

        .Range("G1").Value = "Einnahme" 'aeu

        .Range("I1").Value = wsQ.Range("E17").Value 'steuerrelevant

    End With



    wsQ.Range("E5, E7, E9, E11, E13, E15").ClearContents

    Application.ScreenUpdating = True

    Application.EnableEvents = True

End Sub

VG
Yal

Forumthread: eigene datenmaske

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

eigene datenmaske

Forumthread: eigene datenmaske

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread