Auswertung der Tabelle

Hallo User,
ich fang einfach mal an zu erzählen was mein Problem ist.(Ist mein erster Post,bitte um Nachsicht)
Also ich hab mir ein Makro gebastelt welches beim Klicken in einer anderen Tablle den Namen des Kunden einträgt und gleichzeitig das heutige Datum (fixiert).
Nun will ich, das mir über das Makro(Siehe Bild 1), die Anzahl an Transporten vom heutigen Tag angezeigt wird. Mein Problem ist aber das wenn ich ein Transport bei "Stührenberg" hinzufüge es auch bei den anderen Kunden als Transport auftaucht und umgekehrt ebenso.
<a href="https://www.herber.de/bbs/user/92995.jpg">https://www.herber.de/bbs/user/92995.jpg</a>
~f~
Habe zudem das aktuelle Datum in einer anderen Zeile geschrieben mit der Funktion heute() die sich täglich aktualisiert, umso vergangene Transporte zu ignorieren. Ich selektiere momentan so
ZÄHLENWENN --> natürlich weiß ich das damit nur kontrolliert wird ob das Datum übereinstimmt wie krieg ich den Text jetzt auch noch mit rein?
Anschließend noch ein zweites Bild in der Tabelle in dem die Daten eingefügt werden. Welche Formel muss ich benutzten, um für jeden Kunden individuell, die Transportanzahl ausfindig zu machen?
~f~
<a href="https://www.herber.de/bbs/user/92996.jpg">https://www.herber.de/bbs/user/92996.jpg</a>

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

lfd Nr Kunde Datum 1 Kunde01 06.10.2014 2 Kunde02 06.10.2014 3 Kunde01 06.10.2014 4 Kunde02 07.10.2014 5 Kunde01 07.10.2014 6 Kunde01 07.10.2014 Diese Erfassung der Daten ermöglicht auch andere Auswertungen z.B. als Pivot-Tabellenbericht.

Sub LoschGK11SB() Call LoschGK11(strName:="Stührenberg") End Sub Sub LoschGK11RuagOPH() Call LoschGK11(strName:="Ruag (Oberpfaffenhoffen)") End Sub Sub LoschGK11(strName As String) Dim wks As Worksheet Dim Zeile As Long Set wks = Worksheets("Tabelle2") With wks 'letzte Zeile mit Inhalt in Spalte C Zeile = .Cells(.Rows.Count, 4).End(xlUp).Row Do If Zeile

Sub LoschGK11SB() Call LoschGK11(strName:="Stührenberg", SpalteName:=3) 'Name in Spalte C End Sub Sub LoschGK12SB() Call LoschGK11(strName:="Stührenberg", SpalteName:=5) 'Name in Spalte E End Sub Sub LoschGK11RuagOPH() Call LoschGK11(strName:="Ruag (Oberpfaffenhoffen)", SpalteName:=3) 'Name in Spalte C End Sub Sub LoschGK11(strName As String, SpalteName As Long) Dim wks As Worksheet Dim Zeile As Long Set wks = Worksheets("Tabelle2") With wks 'letzte Zeile mit Inhalt in Spalte C Zeile = .Cells(.Rows.Count, SpalteName).End(xlUp).Row Do If Zeile

Hallo Artko,
diese Art der Dateneingabe ist wesentlich effektiver in der Umsetzung per Makro.
Für GK und Kunde solltest du zusätzlich Auswahllisten erstellen und dann per verknüpften Comboxen aus den Active-X-Steuerelementen die Werte in den Zellen eintragen/auswählen.
Noch ein Tipp: verwende hier keine verbundenen Zellen, sondern mach die Spalten etwas breiter.
Verbundenen Zellen erschweren manchmal bis oft das Arbeiten per Makro und auch die eine oder ander Excelfunktion wird dadurch gestört.
Das löschen eines Eintrags kann man natürlich in ähnlicher Weise auf ein einziges Makro zusammenführen.
Gruß
Franz

Sub prcAuswerten()
Dim varGK, AnzTrans As Long, strKunde As String
Dim Zelle As Range, Spalte As Long, Zeile As Long
With Worksheets("Tabelle1")
varGK = .Range("A4").Value
AnzTrans = .Range("B4").Value
strKunde = .Range("C4").Text
End With
If varGK = "" Then
MsgBox "Bitte GK eintragen/auswählen", vbOKOnly, "Prüfung Eingaben"
Exit Sub
End If
If AnzTrans =1 sein", vbOKOnly, "Prüfung Eingaben"
Exit Sub
End If
If strKunde = "" Then
MsgBox "Bitte Kunde eintragen/auswählen", vbOKOnly, "Prüfung Eingaben"
Exit Sub
End If
With Worksheets("Tabelle2")
'Spalte mit GK in Zeile 1 suchen
Set Zelle = .Rows(1).Find(what:=varGK, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "GK """ & varGK & """ in Tabelle2 nicht gefunden!"
Else
Spalte = Zelle.Column
Zeile = .Cells(.Rows.Count, Spalte).End(xlUp).Row
Do Until AnzTrans = 0
Zeile = Zeile + 1
.Cells(Zeile, Spalte) = strKunde
.Cells(Zeile, Spalte + 1) = Date
AnzTrans = AnzTrans - 1
Loop
End If
End With
End Sub
Sub prcEintragLoeschen()
Dim varGK, strKunde As String
Dim Zelle As Range, Spalte As Long, Zeile As Long
With Worksheets("Tabelle1")
varGK = .Range("A4").Value
strKunde = .Range("C4").Text
End With
If varGK = "" Then
MsgBox "Bitte GK eintragen/auswählen", vbOKOnly, "Prüfung Eingaben"
Exit Sub
End If
If strKunde = "" Then
MsgBox "Bitte Kunde eintragen/auswählen", vbOKOnly, "Prüfung Eingaben"
Exit Sub
End If
With Worksheets("Tabelle2")
'Spalte mit GK in Zeile 1 suchen
Set Zelle = .Rows(1).Find(what:=varGK, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "GK """ & varGK & """ in Tabelle2 nicht gefunden!"
Else
Spalte = Zelle.Column
Zeile = .Cells(.Rows.Count, Spalte).End(xlUp).Row
Do
If Zeile

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread