Emilian24
09.09.2018, 10:11
VBA Code Zelle +1 addieren?

Guten Morgen. Habe ein falsches Ergebnis mit folgender Formel. Es sind ca. 250 Zeilen worauf die Formel angewendet wird. Dabei wird immer ein Datensatz zu wenig addiert. Kann und wenn ja wie die Gausche Formel etwas bewirken. Habe darüber gelesen, kann sie aber nicht korrekt einfügen. Hat da vielleicht jemand eine Lösung parat. Gruß Emilian



 ...zum Beitrag
Antwort
von Emilian24
10.09.2018, 19:11

Geb mal hier den kompletten Code ein. Hoffe man kann etwas damit anfangen. Gruß Emilian

Option Explicit

Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim zeile As Long
    Dim zeilemax As Long
    Dim i As Long
    Dim lngZeile As Long, lngSpalte As Long
    Dim LetzteZeile As Long
lngZeile = Worksheets("ArbTab").UsedRange.SpecialCells(xlCellTypeLastCell).Row
lngSpalte = Worksheets("ArbTab").UsedRange.SpecialCells(xlCellTypeLastCell).Column

With Worksheets("ArbTab")
    LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
        With Worksheets("TabStat")
        Worksheets("TabStat").Range("B1:B60").ClearContents  ' LÖSCHEN der alten Daten???????
              Worksheets("TabStat").Range("b1").FormulaLocal = "=(Jahr(Heute()))"
Worksheets("TabStat").Range("b2").FormulaLocal = "=SUMMENPRODUKT(((ArbTab!$C$2:$C$" & LetzteZeile & "=""Herr"")+(ArbTab!$C$2:$C$" & LetzteZeile & "=""Frau""))/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
Worksheets("TabStat").Range("b3").FormulaLocal = "=SUMMENPRODUKT((ArbTab!$C$2:$C$" & LetzteZeile & "=""Herr"")/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
Worksheets("TabStat").Range("b4").FormulaLocal = "=SUMMENPRODUKT((ArbTab!$C$2:$C$" & LetzteZeile & "=""Frau"")/ZÄHLENWENN(ArbTab!$B$2:$B$" & LetzteZeile & ";ArbTab!$B$2:$B$" & LetzteZeile & "))"
          End With
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = True
End With

End Sub
...zur Antwort
Emilian24
22.06.2018, 14:14
EXCEL VBA MAKRO verbinden? 

Hallo und guten Tag. Bräuchte mal eure Hilfe bei VBA Code Makro verbinden. Möchte beim eingeben von Daten in eine Tabelle diese vorher entsperren, und am Ende wieder vor neugierigen Blicken sperren. Jetz kriege ich den "Fehler END SUB erwartet" angezeigt. Hat hier vielleicht jemand einen Lösungsvorschlag für mich parat??? Danke und Gruß Emilian
 
 Sub cmdNew_Click() '  CommandButton1
    Dim lZeile As Long
     lZeile = 1
     Do While Trim(CStr(wsAt.Cells(lZeile, 1).Value)) <> ""
         lZeile = lZeile + 1
     Loop
      wsAt.Cells(lZeile, 1) = CStr("NR " & lZeile)
      wsAt.Cells(lZeile, 2) = CStr("NeuMtgld ")




     lstData.AddItem
     lstData.List(lstData.ListCount - 1, 1) = CStr("NR " & lZeile)
     lstData.ListIndex = lstData.ListCount - 1
        Call freigeben
        Sub freigeben()
        Dim i As Integer, Blatt As Worksheet
        Set Blatt = ActiveSheet
        Dim pw As String
        pw = InputBox("Bitte Kennwort eingeben", "wolli24", "KENNWORT eingeben")
        For i = 1 To ActiveWorkbook.Worksheets.Count
        ActiveWorkbook.Worksheets(i).Activate
        ActiveSheet.Unprotect Password:=pw
        Next i
        Blatt.Select
End Sub

...zum Beitrag
Antwort
von Emilian24
22.06.2018, 14:18 
Bräuchte mal eure Hilfe bei VBA Code Makro verbinden. Möchte beim eingeben von Daten in eine Tabelle diese vorher entsperren, und am Ende wieder vor neugierigen Blicken zu sperren. Jetz kriege ich den "Fehler END SUB erwartet" angezeigt. Hat hier vielleicht jemand einen Lösungsvorschlag für mich parat??? Danke und Gruß Emilian
...zur Antwort
Emilian24
15.05.2018, 15:35
Doppelte Wörter aus Zeilen erkennen?

In der Spalte "D" habe ich 8 Nachnamen stehen. Es sind aber nur 4 unterschiedliche Personen. Meine Frage wäre, wie kann ich hier die doppelten Positionen in einer Formel erfassen. Weil im Ergebnis sind es ja 4 Personen. Gruß und Danke, Emilian

 ...zum Beitrag
Antwort
von Emilian24
15.05.2018, 19:40

Hier mal mein Versuch : =SUMME(WENN(HÄUFIGKEIT(D2:D14;D2:D14)=2;1))

Damit kann ich wie ich vermute aber keine Texte "auswerten" .

Danke vielmals und Gruß

...zur Antwort