Verwandte Themen

JonasK1995
11.10.2022, 14:31
Mit Bildern
Kennt sich jemand gut in Excel aus?

Ich bin dabei, eine Exceltabelle zu erstellen, in der ich einen Mitarbeiter eintrage und das Eintrittsdatum ins Unternehmen. Mit verschiedenen Formeln soll dann folgendes berechnet werden:

  • 1. Zeit im Unternehmen in Jahren
  • 2. die Gehaltsstufe in der sich der Mitarbeiter befindet
  • 3. an welchem Tag ist der Stufensprung in die nächst höhere Gehaltsstufe
  • 4. alle Mitarbeiter, welche innerhalb eines Jahres einen Stufensprung haben, soll mir Excel farblich markieren, bis zu dem Datum.

Für die ersten 3 Punkte habe ich bereits eine Formel:

  • 1. =(HEUTE()-B2)/365, jedoch glaube ich, dass der Teiler 365 etwas verfälscht
  • 2.Formel ist in Zelle E2

=WENN(C2<=1;"1";WENN(UND(C2>=1;C2<3);"2";WENN(UND(C2>=3;C2<6);"3";WENN(UND(C2>=6;C2<10);"4";WENN(UND(C2>=10;C2<15);"5";"6")))))

Diese Formel funktioniert gut

  • 3.Formel ist in Zelle F2

=WENN(E2=1;DATUM(JAHR(B2)+1;MONAT(B2);TAG(B2));WENN(E2=2;DATUM(JAHR(B2)+3;MONAT(B2);TAG(B2));WENN(E2=3;DATUM(JAHR(B2)+6;MONAT(B2);TAG(B2));WENN(E2=4;DATUM(JAHR(B2)+10;MONAT(B2);TAG(B2));WENN(E2=5;DATUM(JAHR(B2)+15;MONAT(B2);TAG(B2));WENN(E2=6;"kein";"kein"))))))

Diese Formel funktioniert, aber nur wenn ich die Zelle E2, welche ich eigentlich berechnen lassen will händisch eingebe, kann mir jemand sagen warum und was ich anders machen kann?

4. Ich habe noch keine wirkliche Idee, wie ich das umsetzen soll, mein Ansatz war, eine neue Regel, mit einer wenn Funktion zu erstellen, komme aber leider nicht weiter

    Bild zum Beitrag
    Microsoft Excel, Microsoft Office, Formel, Office 365
    3 Antworten
    Baumhaus65
    04.10.2022, 14:13
    In Excel Makros aus aktiven Sheet löschen?

    Ich Möchte ein Tabellenblatt neben das Original kopieren, in dem man nichts mehr ändern kann, aber anschliesssend die Sub Makros aus der Kopie Löschen, da sonnst die Datie zu groß wird. Das Kopieren funktioniert super, nur mit den Makros entfernen noch nicht so.

    Das ist mein Code zum Kopieren, Danke

    Sub NeuesTabBlatt()
' Monate Soll
 If MsgBox("Wollen Sie wirklich einen neuen Sollplan erstellen?", vbYesNo) = vbYes Then
 If InputBox("geben sie Bitte das Passwort zum Entsperren ein", "  Sollplanerstellung") = "1234" Then
        MsgBox "OK, der Sollplan wird erstellt"
 Else
 MsgBox "Hier kommst Du net rein!"
 ActiveSheet.Range("$A$1").Select
 Exit Sub
 End If
Application.ScreenUpdating = False
Application.Calculation = False
Dim NewName As String
ActiveWorkbook.Unprotect Password:="1234"
NewName = ActiveSheet.Range("$CW$1")
ActiveSheet.Copy After:=ActiveSheet
 ActiveSheet.Name = "Soll" & " " & ActiveSheet.Range("CW1")
  ActiveSheet.Range("AT127:AV134,AQ133:AS133, AT183:AV186, AT228:AV232").Clear
       ZeilenEinUndAusblenden
    ActiveSheet.EnableSelection = xlNoSelection
   ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.Visible = False
  ActiveWorkbook.Protect "1234", Structure:=True
  Application.Calculation = xlAutomatic
 Application.ScreenUpdating = True
 MsgBox "ein neues SOLL Tabellenblatt wurde erstellt"
 End If
 'BlätterSollEinAus
 ActiveSheet.Range("$A$1").Select
End Sub
    Microsoft Excel, VBA
    2 Antworten
    Scha123f
    29.08.2022, 11:28
    Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

    Hallo Zusammen,

    Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

    Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

    Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

    Hier der Code im Worksheet "DieseArbeitsmappe":

    Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

    In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

    Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

    Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

    Vielen Dank, Michael

    Microsoft Excel, programmieren, Makro, VBA
    2 Antworten

    Meistgelesene Beiträge zum Thema Microsoft Excel
    Mehr meistgelesene Fragen zu Microsoft Excel