Thema Datum  Von Nutzer Rating
Antwort
02.02.2015 10:24:52 Henning
NotSolved
Blau Inhalt in Zeile fixieren wenn vorherige Zeilen gelöscht werden
 02.02.2015 19:10:37 Gast87757
NotSolved
09.02.2015 14:51:34 Henning
NotSolved

Ansicht des Beitrags:
Von:
Gast87757		 Datum:
02.02.2015 19:10:37		 Views:
1006		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt in Zeile fixieren wenn vorherige Zeilen gelöscht werden

Hallo Henning,

eine Möglichkeit ?!?

Option Explicit

Sub Auto_open()
'**Datenquelle neu laden
Application.ThisWorkbook.RefreshAll
Dim Blatt As Object
Dim Arr()
Dim lz As Long
Dim t As Long
On Error Resume Next

For Each Blatt In Worksheets
   '** zum Test
   Blatt.Activate
   '** Ermittlung der letzten Zeile in Spalte C
   lz = Blatt.Cells(Rows.Count, 3).End(xlUp).Rows.Row

   '** Durchlauf aller Zeilen
   For t = lz To 3 Step -1
   'Zählung rückwärts bis Zeile 3
   'Abfragen, ob in der zweiten Spalte die Buchstaben "So" stehen und löschen

      If Blatt.Cells(t, 2).Value = "So" Then
         Arr = Blatt.Cells(lz, 1).EntireRow.FormulaR1C1
         Blatt.Cells(lz, 1).EntireRow.ClearContents
         Blatt.Rows(t).Delete Shift:=xlUp
         Blatt.Cells(lz, 1).EntireRow.FormulaR1C1 = Arr
      End If
      '**Werte <=0.93 rot färben
      If Blatt.Cells(t, 13).Value <= 0.93 Then
         Blatt.Cells(t, 13).Font.ColorIndex = 3
      End If
   Next t
Next Blatt

End Sub

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2015 10:24:52 Henning
NotSolved
Blau Inhalt in Zeile fixieren wenn vorherige Zeilen gelöscht werden
 02.02.2015 19:10:37 Gast87757
NotSolved
09.02.2015 14:51:34 Henning
NotSolved