Zellen in einem Excel Blatt zählen

[Rabe]

Jetzt fehlt noch das Einfügen eines neuen Bildes in den Seitenhintergrund und das Löschen der bisher eingetragenen Haken oder x nach Druck der Taste "abspeichern".

und hier:

Option Explicit



Sub mdl_Zählen()

  ' 

  ' mdl_Zählen Makro 

  ' 

  Dim lngErsteLeereZeile As Long

  Dim lngLetzteZeile As Long

  ' 

  With Sheets("Auswertung")

     lngLetzteZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) 'feststellen letzte belegte Zeile 

     lngErsteLeereZeile = lngLetzteZeile + 1                                                                  'erste leere Zeile 

     .Range("B" & lngErsteLeereZeile).FormulaR1C1 = "=COUNTIF(Fehlerlandkarte!R3C2:R14C24,""r"")"

     .Range("C" & lngErsteLeereZeile).FormulaR1C1 = "=COUNTIF(Fehlerlandkarte!R3C2:R14C24,""a"")"

     .Range("B" & lngErsteLeereZeile & ":C" & lngErsteLeereZeile).Copy

     .Range("B" & lngErsteLeereZeile).PasteSpecial Paste:=xlPasteValues                                       'ersetzen der Formel durch Werte 

     .Range("A" & lngErsteLeereZeile) = Sheets("Fehlerlandkarte").Range("D18")

     Call mdl_neues_Fahrzeug                                                                                  'Löschen Bewertung und Aufruf neues Bild 

     Application.CutCopyMode = False                                                                          'De-Markieren des Zwischenspeichers 

  End With

End Sub



Sub mdl_neues_Fahrzeug()

  ' 

  ' mdl_neues_Fahrzeug Makro 

  ' 

  

  ' 

  Range("B3:X14").ClearContents

  ActiveSheet.SetBackgroundPicture Filename:= _

      "C:\Temp\Seitenwand.jpg"           'Pfad anpassen 

End Sub

hier nur Fehlermarkierung:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Not Intersect(Target, Range("B3:X13")) Is Nothing Then

       Application.EnableEvents = False

       Target = IIf(Target = "", "r", "")

       Application.EnableEvents = True

       Cancel = True

   End If

End Sub

[snb]

Etwas modifiziert:

[NoFear070]

Hallo & und allen einen entspannten Feierabend!
Leider bin ich heute, beruflich, ein wenig eingespannt gewesen und habe jetzt auch nicht die Zeit und Muße( meine Freundin rängt schon , wir müssen noch weg)
Ich habe mir gerade eure Antworten und Tipps und 2 Lösungen angesehen.ich möchte an dieser Stelle nur kurz sagen:
Ganz herzlichen Dank !!!!! An alle - das ist der Wahnsinn.
ich werde mir das morgen in der Firma genau ansehen und dann nochmal ausführlich Stellung nehmen.
Bis dahin,
genießt den 29.02. 2016  :19:

Frank

[NoFear070]

Hallo zusammen

Ich kann mich nur nochmals bedanken und bin sehr sehr begeistert.
Und meine Vermutung wurde mal wieder bestätigt – wie wenig ich doch von Excel weiß
Aber erst mal ein Kurzes Feedback:
Wie eingangs schon gesagt, ich bin sehr begeistert und möchte mich nochmal für eure Unterstützung bedanken.
Leider lässt sich das Makro, durch Klick auf den Button nicht ausführen. Es erfolgt lediglich eine Fehlermeldung, dem Wortlaut nach: “Das Makro kann nicht ausgeführt werden, das Makro ist evtl. nicht verfügbar oder deaktiviert.“
Ich habe die Mappe aber als „Excel Arbeitsmappe mit Makros“ abgespeichert.
Ich finde auch im VBA-Editor keinen ähnlich gearteten Code wie ihr ihn im Thread abgedruckt habt.
Im Register „Auswertung“ werden die Anzahl Fehler angezeigt. TOP !!!
Meine Vorstellung sieht aber, wie auf dem Bild dargestellt, aus. Ich hätte gerne die Zellen gezählt, in die geklickt wurden. Anschließend (vielleicht nach 100 Fzg.) zeigt er mir an 65x in P6 geklickt, 64x in P7 usw. usw.. Über z.B. bedingte Formatierung hab ich dann eine farbliche Darstellung, wo meine meisten Beulen sind.
Ist meine Vorstellung umsetzbar? Also, ich weiß –von mir nicht.
Aber vielleicht mit eurer Unterstützung.

Ich wünsche noch einen schönen Tag
Und viele Grüße
Frank

[NoFear070]

... jetzt hab ich doch glatt das Bild vergessen ! :20:

[WillWissen]

Hi Frank,

Ich hätte gerne die Zellen gezählt, in die geklickt wurden. Anschließend (vielleicht nach 100 Fzg.) zeigt er mir an 65x in P6 geklickt, 64x in P7 usw. usw..

dabei kann ich dir nicht helfen. Aber bist du dir sicher, dass du das wirklich willst? Vorausgesetzt, dein Anliegen ist mit VBA umsetzbar, was machst du dann bei einem versehentlichen Klick? Oder du glaubst, in die Zelle P6 zu klicken, bist aber tatsächlich in P7? Das ist doch nie wieder nachvollziehbar, ob der Zähler korrekt ist. Ein falsches x bemerkst du aber in der Regel gleich und kannst es korrigieren - und mit der bisher angewandten Zählmethode kannst du doch wenigstens den Bereich eingrenzen.

[Rabe]

Hi Frank,

Leider lässt sich das Makro, durch Klick auf den Button nicht ausführen. Es erfolgt lediglich eine Fehlermeldung, dem Wortlaut nach: “Das Makro kann nicht ausgeführt werden, das Makro ist evtl. nicht verfügbar oder deaktiviert."

dann ist das Makro nicht aktiviert. Gehe in Excel auf den Menüpunkt "Datei" ganz links oben, dann "Optionen", dann "Trust Center", dann "Einstellungen für das Trust Center", dann "Makroeinstellungen", dann anklicken "Alle Makros deaktivieren mit Benachrichtigung" und 2x OK.

Dann die Datei nochmal speichern und wieder aufrufen. Die Abfrage nach dem Aktivieren der Makros bejahen.

Ist meine Vorstellung umsetzbar? Also, ich weiß –von mir nicht.

dazu müßte in der Auswertung eine weitere Matrix erstellt werden, welches Feld wie oft angeklickt wurde und dieses dann auf einem zusätzlichen Übersichtsblatt angezeigt werden. Das dazu Addieren für die Zellsummen könnte ebenfalls beim Drücken des Buttons erfolgen.
Das geht schon, ist aber nicht von jetzt auf gleich machbar.

[NoFear070]

Hallo zusammen
Also in meiner Vorstellung hab ich das so gedacht:

Der Mitarbeiter macht seine "x"e in die betroffenen Zellen. Wenn er das x falsch gesetzt hat kann er es wieder löschen.
Wenn er sich sicher ist, dass er alles richtig ge"x"t hat drückt er einen Button und mittels VBA wertet Excel die Zellen aus, wenn also Zelle P6 nicht leer ist wird wird die Variable P6 um eins erhöht. Gleichzeitig werden alle "x"e gelöscht. Und er Prüfer fängt wieder bei null an. Fahrzeugnummern sind (erstmal) nicht wichitg.
Nach einer bestimmten Anzahl Fahrzeuge kann ich dann auswerten. WEnn in der Variablen P6 zum Beispiel 64 steht schreibt Excel in die Zelle P6 die Zahl 64.
Und über bedingte Formatierung kann ich das dan grafisch sichtbar machen.

also ich möchte eure Zeit und Nerven wirklich nicht überstrapazieren. Es ist wirklich nur eine Idee von mir gewesen. Wenn das nicht klappt, ist das wirklich nicht schlimm.
Ich hats einfach toll gefunden, wenn so etwas mit etwas GEschick und Können machbar gewesen wäre.
Wenn dem nicht so ist bedanke ich mich trotzdem herzlichst und bin nach wie vor erfreut, dass man hier so viele und schnelle Hilfe bekommt.
Danke dafür !!!

Frank


...und das mit den Makroeinstellungen im Trustcenter werde ich nachher erstmal einstellen

[radagast]

heje excelfreunde, notfear070,

vielleicht muss dein anliegen komplexer / vielschichtiger betrachtet werden.
- können alle prüfer alle zellen markieren oder nur bestimmte.
- nach dem speicher, kein wiederaufruf der daten möglich und damit entfällt eine korrektur (auch prüfer machen fehler)
- etc.

[Rabe]

Hi Frank,

also ich möchte eure Zeit und Nerven wirklich nicht überstrapazieren. Es ist wirklich nur eine Idee von mir gewesen. Wenn das nicht klappt, ist das wirklich nicht schlimm.
Ich hats einfach toll gefunden, wenn so etwas mit etwas GEschick und Können machbar gewesen wäre.

jetzt überstürze mal nichts, das wird schon werden.

Da muß aber jemand ran, der mehr mit Matrizen programmiert hat als ich, also z.B. "schauan" oder "atilla".
Ich habe grade keinen Plan, wie man die gesetzten Kreuze auf die Zellbezeichnungen summieren kann.