Makro Daten eintragen läuft nicht
09.08.2016 17:40:35
Annette
dankdersuper schnellen Hilfe heute morgen und vielen Stunden rumprobieren sind schon einige Probleme gelöst,aber nun habe ich eins da komme ich nicht weiter.
1. Versuch mit Makrorekorder ging garnicht
Dann eben eine sehr alte Datei rausgesucht und Marko kopiert, soweit so gut, Anpassung an neue Datei eigentlich recht gut gelungen, aber trotzdem geht es nicht.
1. Tabelle mit Eingabemaske
2. Tabelle mit Mitgliedsdaten und dann die Daten leeren auf Tabelle 1
Ich möchte durch die Eingabe auf Tabelle 1 in den Spalten c11,e11 unf g11 Zahlen in Tabelle 2 in die Spalten G,H,I eintragen.
Sollten eigentlich kein Problem sein,aber es klappt nicht.
Dabei sollen auch vorhandene Daten addiert werden also Lagerbestand erhöht.
Mein Makro sieht jetzt schon so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
If (Target.Address = "$c$11" or Target.Address = "$e$11" or Target.Address = "$g$11")
And Trim(Target.Text) "" And Not IsError(Cells(11, 3).Value) Then
With Worksheets("Mitgliedsdaten")
If .FilterMode Then .ShowAllData
Set myRange = .Columns(1).Find(What:=Cells(6, 3).Value, _
LookAt:=xlWhole, LookIn:=xlValues)
If Not myRange Is Nothing Then
If Target.Row = 11 Then .Cells(myRange.Row, 7).Value = _
.Cells(myRange.Row, 7).Value - Target.Value _
Else .Cells(myRange.Row, 7).Value = _
.Cells(myRange.Row, 7).Value Target.Value
Else
MsgBox "Wert " & Cells(6, 3).Value & " nicht in der Tabelle.", 16, "Fehler"
End If
End With
Else
If Target.Address = "$c$6" Then
Application.EnableEvents = False
Cells(11, 3).Value = 0
Cells(11, 5).Value = 0
Cells(11, 7).Value = 0
Application.EnableEvents = True
End If
End If
End Sub
Da scheite ich nun völlig.
Danke Annette