| | | 17 Optionen für korrosionsbeständige Teile: Metalle und Nachbearbeitungen, ein Fachartikel
|
Autor
|
Thema: Excel 2010 mit Macro Fehler und Zeit rechnen (1763 mal gelesen)
|
Garry Mitglied Techniker/Konstrukteur
Beiträge: 684 Registriert: 05.03.2003 WIN10 (64bit), SWX 2019 Premium SP5, PDM-Pro2019 , XEON W-3225-3,7GHz 128GB, NVidia RT6000 SpacePilot Pro, SSD500GB Office 365
|
erstellt am: 12. Jun. 2012 07:58 <-- editieren / zitieren --> Unities abgeben:
Hallo, In einer Tabelle sollte Spalte A1-A10 mit Spalte C1-C10 und dem Vorzeichen in Spalte B1-B10 Berechnet werden . Nach einem Klick auf einen Start Button kann man das Ergebnis in Spalte D1-D10 Händisch eintragen. NAch dem Klick auf den Fertig Button, sollte er die richtigen Felder grün und die falschen Felder rot Markieren. Und unten Angeben wieviel Falsch und Richtig waren, und wieviel Zeit man dafür gebraucht hat. Mit dem Macro recorder stoße ich an meine Grenzen, da ich von Macros keine Ahnung habe. Kann mir hierbei vielleicht jemand bei meinem vorhaben Helfen, wie ich das Lösen kann.
------------------ Gruß Garry Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007
|
erstellt am: 12. Jun. 2012 10:17 <-- editieren / zitieren --> Unities abgeben: Nur für Garry
|
Garry Mitglied Techniker/Konstrukteur
Beiträge: 684 Registriert: 05.03.2003 WIN10 (64bit), SWX 2019 Premium SP5, PDM-Pro2019 , XEON W-3225-3,7GHz 128GB, NVidia RT6000 SpacePilot Pro, SSD500GB Office 365
|
erstellt am: 12. Jun. 2012 12:32 <-- editieren / zitieren --> Unities abgeben:
Hallo Karin, genau das meine ich, nur wie bekomme ich den Code jetzt auf meine Tabelle übertragen. Habe sie dir mal Angehängt. Wenn du mir Eklären kannst wie ich deinen Code jetzt auf meine Tabelle übertragen kann.....wäre echt Super. ------------------ Gruß Garry Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007
|
erstellt am: 12. Jun. 2012 15:37 <-- editieren / zitieren --> Unities abgeben: Nur für Garry
Hi Garry, es wäre wesentlich einfacher gewesen, wenn du deine Mappe gleich zu Beginn hochgeladen hättest - dann hätte man den Code gleich auf deine konkreten und wesentlich komplizierteren Bedingungen ausrichten können und man hätte sich Zeit und Mühe sparen können. Beachte dies bitte das nächste Mal.
Code: Option Explicit Dim dblStart As Double Dim rngZelle As Range Dim rngBereich As RangeSub Start() Dim intSpalte As Integer Set rngBereich = Union(Range("E4:E22"), Range("I4:I22"), Range("Q4:Q22"), Range("W4:W22"), _ Range("AC4:AC22"), Range("AI4:AI22")) For Each rngZelle In rngBereich If rngZelle.Interior.ColorIndex <> xlNone Then rngZelle.ClearContents rngZelle.Interior.Color = 14277081 End If Next rngZelle Range("AK4:AL6").ClearContents dblStart = Now Set rngBereich = Nothing End Sub Sub RichtigkeitPruefen() Dim lngRichtige As Long Range("AK4") = "Zeit" Range("AL4") = Now - dblStart Range("AL4").NumberFormat = "mm:ss" Set rngBereich = Union(Range("E4:E22"), Range("I4:I22"), Range("Q4:Q22"), Range("W4:W22"), _ Range("AC4:AC22"), Range("AI4:AI22")) For Each rngZelle In rngBereich If rngZelle.Row Mod 2 = 0 Then If rngZelle.Offset(0, 1) = "" Then If Application.Evaluate(rngZelle.Offset(0, -4) & rngZelle.Offset(0, -3) & _ rngZelle.Offset(0, -2)) = rngZelle Then rngZelle.Interior.ColorIndex = 4 lngRichtige = lngRichtige + 1 Else rngZelle.Interior.ColorIndex = 3 End If ElseIf rngZelle.Offset(0, 1) <> "" Then If rngZelle <> "" Then If Application.Evaluate(rngZelle & rngZelle.Offset(0, 1) & rngZelle.Offset(0, 2)) _ = rngZelle.Offset(0, -2) Then rngZelle.Interior.ColorIndex = 4 lngRichtige = lngRichtige + 1 Else rngZelle.Interior.ColorIndex = 3 End If Else rngZelle.Interior.ColorIndex = 3 End If End If End If Next rngZelle Range("AK6") = "Richtige" Range("AL6") = lngRichtige Set rngBereich = Nothing End Sub
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Garry Mitglied Techniker/Konstrukteur
Beiträge: 684 Registriert: 05.03.2003 WIN10 (64bit), SWX 2019 Premium SP5, PDM-Pro2019 , XEON W-3225-3,7GHz 128GB, NVidia RT6000 SpacePilot Pro, SSD500GB Office 365
|
erstellt am: 12. Jun. 2012 16:40 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|