Thema Datum  Von Nutzer Rating
Antwort
26.07.2017 21:28:38 boby17
NotSolved
26.07.2017 23:46:18 Ben
Solved
27.07.2017 22:29:35 boby17
NotSolved
Blau 30Tage review anpassen und archivieren
 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:
27.07.2017 23:13:30		 Views:
594		 Rating:
     
Antwort:
  Ja
Thema:
30Tage review anpassen und archivieren

Hallo boby17,

in dem Fall kann der Aufruf leicht modifiziert werden:

Sub DeleteAF(ByVal 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 FixAll()
    Dim iRow As Integer
    For iRow = 2 To 30
        DeleteAF iRow
    Next
End Sub

Info: Diese Lösung erkennt keine leeren Zeilen, falls welche vorhanden sein sollten.

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
26.07.2017 23:46:18 Ben
Solved
27.07.2017 22:29:35 boby17
NotSolved
Blau 30Tage review anpassen und archivieren
 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