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:
919
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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