Thema Datum  Von Nutzer Rating
Antwort
26.07.2017 21:28:38 boby17
NotSolved
Blau 30Tage review anpassen und archivieren
 26.07.2017 23:46:18 Ben
Solved
27.07.2017 22:29:35 boby17
NotSolved
27.07.2017 23:13:30 Ben
NotSolved
27.07.2017 23:23:39 Ben
NotSolved
28.07.2017 07:48:22 boby17
NotSolved
28.07.2017 11:44:15 Ben
Solved
31.07.2017 18:10:00 Boby17
NotSolved
31.07.2017 19:08:48 Ben
Solved
15.08.2017 20:34:01 Boby17
NotSolved
16.08.2017 12:31:39 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
26.07.2017 23:46:18		 Views:
752		 Rating:
     
Antwort:
 Nein
Thema:
30Tage review anpassen und archivieren

Hallo,

wenn ich es richtig gelesen habe, dürfen die Zellen selbst nicht gelöscht oder verschoben werden, da sonst die Bezüge der Formeln nicht mehr stimmen

Sub DeleteAF(lngRow As Long)
    Dim wsh As Worksheet
    Dim rng As Range
    Dim iCol As Integer
    Set wsh = ActiveWorkbook.Worksheets(1)
    For iCol = 32 To 3 Step -1
        With wsh.Cells(lngRow, iCol)
            If iCol = 3 Then
                .Value = Date
            Else
                If IsEmpty(.Offset(ColumnOffset:=-1).Value) Then
                    .Value = ""
                Else
                    .Value = .Offset(ColumnOffset:=-1).Value
                End If
            End If
        End With
    Next
End Sub

Sub Fix2()
    DeleteAF 2
End Sub

Der Befehl Fix2 korrigiert den Eintrag in Zeile 2.

Falls eine andere Zeile geändert werdn soll, muss lediglich die 2 gegen eine andere Zahl ausgewechselt werden.

LG, Ben

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
26.07.2017 21:28:38 boby17
NotSolved
Blau 30Tage review anpassen und archivieren
 26.07.2017 23:46:18 Ben
Solved
27.07.2017 22:29:35 boby17
NotSolved
27.07.2017 23:13:30 Ben
NotSolved
27.07.2017 23:23:39 Ben
NotSolved
28.07.2017 07:48:22 boby17
NotSolved
28.07.2017 11:44:15 Ben
Solved
31.07.2017 18:10:00 Boby17
NotSolved
31.07.2017 19:08:48 Ben
Solved
15.08.2017 20:34:01 Boby17
NotSolved
16.08.2017 12:31:39 Ben
NotSolved