Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.08.2014 10:07:09 |
Moritz |
|
|
Tabelle aufräumen; If not - Laufzeitfehler |
29.08.2014 12:26:07 |
Gast68987 |
|
|
|
29.08.2014 12:57:48 |
Moritz |
|
|
|
29.08.2014 13:07:27 |
Gast94994 |
|
|
|
29.08.2014 13:09:30 |
Gast70959 |
|
|
|
29.08.2014 15:34:53 |
Moritz |
|
|
|
29.08.2014 16:08:36 |
Gast10100 |
|
|
|
08.09.2014 10:52:16 |
Moritz |
|
|
|
08.09.2014 14:07:42 |
Gast77455 |
|
|
Von:
Gast68987 |
Datum:
29.08.2014 12:26:07 |
Views:
814 |
Rating:
|
Antwort:
|
Thema:
Tabelle aufräumen; If not - Laufzeitfehler |
Hi Moritz.
Wie ist das?
Option Explicit 'Variablendeklaration erzwingen (hauptsächlich um Tippfehlern vorzubeugen)
Sub Aufraeumen()
'zu nutzende Variablen deklarieren
Dim i As Long
'innerhalb des nachfolgenden Blocks jeweils auf das angegebene Tabellenblatt beziehen - insofern gewollt
'(wenn gewollt, dann steht vor der Objektreferenz jeweils ein Punkt - siehe z.B. ".Cells", weiter unten)
With ThisWorkbook.Worksheets("Kennzahlen")
'durchläuft alle Zellen (ohne Titelzeile)
For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
'Wenn in Spalte A kein "K" steht
'oder wenn in in Spalte C zwei bestimmte Ausdrücke stehen, dann ...
If Not .Cells(i, "A").Value Like "*K*" _
Or .Cells(i, "C").Value Like "*Tagnoo*"
Or .Cells(i, "C").Value Like "*Tdg*" _
Then
'... Zeile löschen
.Rows(i).Delete Shift:=xlShiftUp
End If
Next
'Spalte Flotte einfügen
.Columns("Flotte").Copy
.Columns("C:C").Insert Shift:=xlShiftToRight
'den autom. eingeblendeten (animierten) Kopier-Rahmen von Excel deaktivieren
Application.CutCopyMode = False
'Spalte NaT löschen
.Columns("nicht abgerechnete Transporte").Delete Shift:=xlToLeft
End With
End Sub
Ich bin mir hier deiner Beschreibung nach nicht ganz sicher ob die Bedingung korrekt formuliert ist.
Ist die Prüfung in Spalte C abhängig vom Prüfergebnis von Spalte A?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
29.08.2014 10:07:09 |
Moritz |
|
|
Tabelle aufräumen; If not - Laufzeitfehler |
29.08.2014 12:26:07 |
Gast68987 |
|
|
|
29.08.2014 12:57:48 |
Moritz |
|
|
|
29.08.2014 13:07:27 |
Gast94994 |
|
|
|
29.08.2014 13:09:30 |
Gast70959 |
|
|
|
29.08.2014 15:34:53 |
Moritz |
|
|
|
29.08.2014 16:08:36 |
Gast10100 |
|
|
|
08.09.2014 10:52:16 |
Moritz |
|
|
|
08.09.2014 14:07:42 |
Gast77455 |
|
|