VBA Code 2010

Public Sub SelectionChange(ByVal Target As Range) '*** Abbrechen wenn schon was anderes läuft If IsActive2 Then Exit Sub End If '* Nur die Zeilen mit Projekten erlauben GültigeZeile = False For intRow = Header To Header + (LinesPerDay * 4) Step LinesPerDay If Target.Row >= intRow And Target.Row

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Code 2010

10.03.2020 17:59:17

onur

AW: VBA Code 2010

10.03.2020 18:16:35

Luschi

AW: VBA Code 2010

11.03.2020 09:59:17

Marco

AW: VBA Code 2010

11.03.2020 20:33:14

Luschi

AW: VBA Code 2010

12.03.2020 08:07:34

Marco

Hallo Marco,
mit der Behauptung
- 'im Excel 2010 hat dieser super funktioniert' kann keiner etwas anfangen
- niemand weiß, wie/wann Du die Routine 'SelectionChange' aufrufst
- diese Prozedur ist kein Ereignis/Event - muß also irgendwie gestartet werden
- Schleifen mit direkter Aktion sind immer langsam
- also erst alle Zellbereiche in einer Range-Variablen sammeln
- und dann die Aktion starten (z.B. Hintergrundfarbe ändern)
- die Variable 'Header'ist im gezeigten Vba-Code nicht definiert
- sicher fehlt die Vba-Editor-Einstellung: Option Explicit
- ActiveSheet gibt es in meinem Vba-Code nicht (NIE!)
- hier müssen Objektvariabelen definiert und verwendet werden
Gruß von Luschi
aus klein-Paris

Hallo Marco,
ich habe mal Folgendes getan:
- in jedem vorhanden Modul folgende Einstellung in der 1. Zeile hinzugefügt
- Option Explicit
- damit wird erzwungen, daß jede verwendete Variable auch definiert ist
- und schon meckert der Debugger
- Du veränderst viele Werte in den Zellen per Vba
- damit wird aber jedes mal das Ereignis 'Worksheet_Change' der jeweiligen Tabelle aufgerufen
- und damit hast Du einen Schleifen-Kreislauf erzeugt, der so nicht gewollt ist
- Abhilfe : Application.EnableEvents = False bzw. True
- aber diese Einstellung kann ich aber im Code nicht finden
- würdest Du mit BrakePoints (Haltepunkten - F9-Taste) während des Testens arbeiten
- wird das Dilemma sichtbar
- eigentlich gehören dazu noch ein paar Einstellungen, um Excel-Vba auf die Sprünge zu helfen
- siehe im I-Net: Excel Vba GetMoreSpeed
Gruß von Luschi
aus klein-Paris

Sub getMoreSpeed(bDoIt As Boolean) Application.ScreenUpdating = Not (bDoIt) Application.EnableEvents = Not (bDoIt) Application.Calculation = IIf(bDoIt, xlCalculationManual, xlCalculationAutomatic) End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread