Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon NsP vom 23.09.2019, 19:33 Options
Excel funktion bringt als ergebnis 0
Function fm(monat, fmk)
Dim zeile As Integer
Dim z As Integer
fm = 0
Worksheets("FAW2007").Activate
For zeile = 3 To 44
If Cells(zeile, 14).Value = monat Then
If Cells(zeile, 6).Value = fmk Then
fm = fm + 1
End If
If Cells(zeile, 7).Value = fmk Then
fm = fm + 1
End If
If Cells(zeile, 8).Value = fmk Then
fm = fm + 1
End If
End If
Next zeile
Worksheets("Fehlerauswertung").Activate
End Function
Dim zeile As Integer
Dim z As Integer
fm = 0
Worksheets("FAW2007").Activate
For zeile = 3 To 44
If Cells(zeile, 14).Value = monat Then
If Cells(zeile, 6).Value = fmk Then
fm = fm + 1
End If
If Cells(zeile, 7).Value = fmk Then
fm = fm + 1
End If
If Cells(zeile, 8).Value = fmk Then
fm = fm + 1
End If
End If
Next zeile
Worksheets("Fehlerauswertung").Activate
End Function
Antwort 1 von MixMax vom 23.09.2019, 20:15 Options
wozu aktivierst du die andere Seite?
welches Worksheet aktiv ist hat nichts damit zu tun welche bei der funktion benutzt wird.
Außerdem wird beim neurechnen von den Zellen immer zwischen den Worksheets hin und her gewechselt.
Mache besser möglichst nichts in Funktionen was den Fokus oder die ansicht ändert.
welches Worksheet aktiv ist hat nichts damit zu tun welche bei der funktion benutzt wird.
Außerdem wird beim neurechnen von den Zellen immer zwischen den Worksheets hin und her gewechselt.
Mache besser möglichst nichts in Funktionen was den Fokus oder die ansicht ändert.
If Worksheets("FAW2007").Cells(zeile, 14).Value = monat Then
If Worksheets("FAW2007").Cells(zeile, 6).Value = fmk Then
fm = fm + 1
End If
If Worksheets("FAW2007").Cells(zeile, 7).Value = fmk Then
fm = fm + 1
End If
If Worksheets("FAW2007").Cells(zeile, 8).Value = fmk Then
fm = fm + 1
End If
End IfAntwort 2 von NsP vom 29.09.2019, 13:54 Options
Hallo Zusammen,
Hier nun meine Lösung die auch funktioniert.
Public Function fmz(monat As Integer, fmk As Integer) As Integer
Dim zeile As Integer
For zeile = 3 To 100
If Worksheets("FAW2007").Cells(zeile, 14).Value = monat Then
If Worksheets("FAW2007").Cells(zeile, 6).Value = fmk Then
fmz = fmz + 1
End If
If Worksheets("FAW2007").Cells(zeile, 7).Value = fmk Then
fmz = fmz + 1
End If
If Worksheets("FAW2007").Cells(zeile, 8).Value = fmk Then
fmz = fmz + 1
End If
End If
Next zeile
End Function
Danke für die Mithilfe
Gruß Norbert
Hier nun meine Lösung die auch funktioniert.
Public Function fmz(monat As Integer, fmk As Integer) As Integer
Dim zeile As Integer
For zeile = 3 To 100
If Worksheets("FAW2007").Cells(zeile, 14).Value = monat Then
If Worksheets("FAW2007").Cells(zeile, 6).Value = fmk Then
fmz = fmz + 1
End If
If Worksheets("FAW2007").Cells(zeile, 7).Value = fmk Then
fmz = fmz + 1
End If
If Worksheets("FAW2007").Cells(zeile, 8).Value = fmk Then
fmz = fmz + 1
End If
End If
Next zeile
End Function
Danke für die Mithilfe
Gruß Norbert
Ähnliche Themen
Excel 2007
inselgerd 08.05.2007 - 100 Hits - 2 Antworten
excel Adressbuch
ble 27.08.2007 - 29 Hits - 4 Antworten
Excel: Buchstaben im Ergebnis?
ManuStaufi 14.01.2008 - 43 Hits - 19 Antworten
Excel - Schriftfarbe rot wenn...
Maria19 25.03.2008 - 45 Hits - 3 Antworten
Problem mit Excel-Wenn Funktion
tja23 14.04.2008 - 11 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
