Hallöchen,
könnte mir evtl. hier jemand die einzelnen Zeilen/Makros erklären? Das wäre echt super :)
Es sieht mir alles nach fast dem selben aus, aber was genau kann ich leider nicht erkennen.
Sub Worksheet_Activate()
Dim pt As Pivottable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub
Private Sub CommandButton10_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
Call Blattschutz_aufheben
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 10).Value = Date
'InputBox("Bitte geben Sie den aktuellen Wochentag ein (z.B. Mo)", "Wochentag", Format(Date, "Ddd"))
job = Zelle.Offset(0, 1).Value
strNutzername = Environ("Username")
Zelle.Offset(0, 14).Value = strNutzername
Call Blattschutz_setzen
Range("K5").Value = "Datum wurde auf morgen gesetzt"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
Sheets("Projektplanung").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Call UserName2
End Sub
Private Sub CommandButton11_Click()
End Sub
Private Sub CommandButton2_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 9).Value = 100
Range("K5").Value = "wurde auf 100% gesetzt"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton1_Click()
'Dim zelle As Range
'ID = ActiveCell.Value
'If ID > 0 Then
'Range("G5").Value = ID
'With Sheets("Rohdaten").Range("a1:a90000")
'Set zelle = .Find(ID, LookIn:=xlValues)
'If Not zelle Is Nothing Then
' firstaddress = zelle.Address
'Set zelle = .FindNext(zelle)
'If zelle.Address <> firstaddress Then
'Range("K5").Value = "ist nicht einzigartig"
'Else
'Sheets("Rohdaten").Activate
'zelle.Offset(0, 6).Activate
'job = zelle.Offset(0, 1).Value
'Range("I2").Value = "wurde für Zeitbearbeitung ausgewählt"
'Range("K5").Value = job
'End If
'Else
'Range("I2").Value = "wurde nicht gefunden"
'End If
'End With
'End If
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 6).Value = InputBox("Bitte tragen Sie die gewünschte Zeit ein!", "Zeit", "0:00")
Range("K5").Value = "wurde die Zeit bearbeitet"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton3_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 9).Value = 1
Range("K5").Value = "wurde auf 1% gesetzt"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton4_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 12).Value = InputBox("Bitte tragen Sie die gewünschte Menge ein!" & vbCr & "Bitte beachte das Vorzeichen +/- !", "Menge", "0")
Range("K5").Value = "wurde die Menge bearbeitet"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton5_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 4).Value = InputBox("Bitte tragen Sie die gewünschte Kostenstelle ein!", "Kostenstelle", "STI")
Range("K5").Value = "wurde die Kostenstelle bearbeitet"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton6_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 9).Value = 100
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 6).Value = 0
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 12).Value = 0
Range("K5").Value = "wurde auf 0:00 gesetzt und abgeschlossen"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub CommandButton7_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
Call Blattschutz_aufheben
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 10).Value = Date + 1
'InputBox("Bitte geben Sie den aktuellen Wochentag ein (z.B. Mo)", "Wochentag", Format(Date, "Ddd"))
job = Zelle.Offset(0, 1).Value
strNutzername = Environ("Username")
Zelle.Offset(0, 14).Value = strNutzername
Call Blattschutz_setzen
Range("K5").Value = "Datum wurde auf morgen gesetzt"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
Sheets("Projektplanung").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Call UserName2
End Sub
Private Sub CommandButton8_Click()
'Call Blattschutz_alle_Tabellen_aufheben
'Call UserName3
'MsgBox "Ich habe Dich doch gebeten hier nicht drauf zu drücken! :-("
Sheets("Projektplanung").Select
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
Sheets("Rohdaten").Activate
Zelle.Offset(0, 0).Activate
Range("K5").Value = "ID wurde gesucht"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
End Sub
Private Sub CommandButton9_Click()
Dim Zelle As Range
ID = ActiveCell.Value
If ID > 0 Then
Range("G5").Value = ID
With Sheets("Rohdaten").Range("a1:a90000")
Set Zelle = .Find(ID, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Set Zelle = .FindNext(Zelle)
If Zelle.Address <> firstaddress Then
Range("H5").Value = "ist nicht einzigartig"
Else
job = Zelle.Offset(0, 1).Value
Zelle.Offset(0, 3).Value = InputBox("Bitte tragen Sie den gewünschten Sachbearbeiter ein!", "Sachbearbeiter")
Range("K5").Value = "wurde der Sachbearbeiter bearbeitet"
Range("H5").Value = job
End If
Else
Range("K5").Value = "wurde nicht gefunden"
End If
End With
End If
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
|