Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Makro in Jahresübersicht funktioniert nicht mehr

Betrifft: Makro in Jahresübersicht funktioniert nicht mehr von: Michael Ostfalk
Geschrieben am: 11.08.2014 12:48:42

Hallo Zusammen,
in meiner Jahresübersicht wurde bisher der rechte Zellenrand nach Eingabe des Abrechnungtages in Spalte AR dick rot hervogehoben. Nach Erweiterung der Tabelle um die Spalten AJ,AK und AL geschieht dies nicht mehr. Die Berechnung funktioniert aber nach wie vor. Habe nicht herausgefunden, was im Makro geändert werden muss.
Zur besseren Veranschaulichung lade ich die Datei mal hoch.
https://www.herber.de/bbs/user/92015.xlsm

Vielleicht kann jemand helfen

Gruß
mike49

  

Betrifft: Makro in Jahresübersicht funktioniert nicht mehr von: Hajo_Zi
Geschrieben am: 11.08.2014 13:24:18

Hallo Mike,

schreibe mich nicht als Ersteller hin. GoTo programmiere ich nicht.

GrußformelHomepage


  

Betrifft: AW: Makro in Jahresübersicht funktioniert nicht mehr von: Michael Ostfalk
Geschrieben am: 11.08.2014 14:14:43

Hallo Hajo,
sorry. Das war nicht beabsichtigt. Hab's korrigiert,

Gruß
mike49


  

Betrifft: AW: Makro in Jahresübersicht funktioniert nicht mehr von: kreimer
Geschrieben am: 11.08.2014 13:32:12

Hallo

Private Sub Worksheet_Change(ByVal Target As Range)

Dim iCol As Integer
Dim rTag As Range
Dim loZei As Long

If Target.Column <> 43 Then Exit Sub ' Wert auf 44 (= Spalte "AR") setzen
If Target.Row < 9 Or Target.Row > 43 Then Exit Sub


  

Betrifft: AW: Makro in Jahresübersicht funktioniert nicht mehr von: Michael Ostfalk
Geschrieben am: 11.08.2014 14:12:37

Hallo,
das klappt prima. Danke dir.
Gruß mike49