Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamische Zellen Range Löschen anhand Spaltenwert

Forumthread: Dynamische Zellen Range Löschen anhand Spaltenwert

Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 09:30:39
Trevor_M
Mein Ziel ist es mit VBA in einer Tabelle bestimmte Ranges einer Spalte zu leeren wenn in Zeile 57 das Wort "Nein" steht.
Für jede Spalte sollte das Makro überprüfen ob in der 57 Zeile das Wort "Nein" steht und dann in der entsprechenden Spalte den Wert in den Zeilen (9-17,19-21,23-25,27-33,48-49) löschen.
Ein Beispiel wie ich dieses Problem lösen kann würde mir sehr helfen.
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 10:05:38
UweD
Hallo
so?
Sub Nein()
    Dim RNG As Range, Zeile As Double, Finde As String
    
    Finde = "Nein"
    Zeile = 57
    Set RNG = Range("9:17,19:21,23:25,27:33,48:49")
    
    If WorksheetFunction.CountIf(Rows(Zeile), Finde) > 0 Then
        RNG.ClearContents
    End If
End Sub

LG UweD
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 10:21:46
Trevor_M
Hallo Uwe,
Danke dir für deine schnelle Antwort.
Der Code löst das Problem nicht ganz da der Code die gesamte Zeile löscht wenn er das Wort "Nein" findet.
Ich bräuchte das Makro bitte so, dass nur die Zellen (9-17,19-21,23-25,27-33,48-49) geleert werden in den Spalten in denen er das Wort Nein in Zeile 57 findet.
Vielen Dank für deine Hilfe!
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 11:01:32
UweD
Hallo nochmal
dann per Schleife
Sub Nein()
    Dim RNG As Range, Zeile As Double, Finde As String
    Dim Z1 As Integer, LC As Integer, i As Integer
    
    Finde = "Nein"
    Zeile = 57
    Set RNG = Range("9:17,19:21,23:25,27:33,48:49")
    LC = Cells(Zeile, Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
    
    For i = 1 To LC
        If Cells(Zeile, i) = Finde Then
            Intersect(RNG, Columns(i)).ClearContents
        End If
    Next
End Sub
LG UweD
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 12:19:40
Trevor_M
Vielen Dank für die schnelle und kluge Hilfe! Funktioniert einwandfrei!
LG Trevor
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 10:12:04
Matthias
Hallo
Ein Beispiel wie Du dieses Problem lösen kannst:
Als Ansatz gedacht!
https://www.herber.de/bbs/user/125571.xlsm
Gruß Matthias
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 12:34:47
Trevor_M
Vielen lieben Dank für die kluge Lösung!
Funktioniert einwandfrei!
LG Trevor
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 10:17:04
Werner
Hallo,
hier meine Version auch noch: 
Public Sub Löschen()
Dim loSpalte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'anpassen
loSpalte = .Cells(57, .Columns.Count).End(xlToLeft).Column
For i = loSpalte To 1 Step -1
If .Cells(57, i) = "Nein" Then
Union(.Range(.Cells(9, i), .Cells(17, i)), .Range(.Cells(19, i), _
.Cells(21, i)), .Range(.Cells(23, i), .Cells(25, i)), _
.Range(.Cells(27, i), .Cells(33, i)), _
.Range(.Cells(38, i), .Cells(49, i))).Delete shift:=xlUp
End If
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 11:20:34
Trevor_M
Hallo Werner,
Vielen Dank für deine Hilfe.
Ich habe noch".Delete shift:=xlUp" durch ".ClearContents" ersetzt und dann macht es genau das was es soll. Hätte ohne deine Hilfe das Problem nicht lösen können.
Eine zusätzlich Frage: Es müsste doch möglich sein bei "With Worksheets("Tabelle1") mehrere Tabellen einzufügen. In etwa so: "With Worksheets("Januar","Februar","März","April")
In dem Falle gibt ehr mir folgende Fehlermeldung: "Fehler beim Kompilieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft!"
Weißt du wo mein Fehler liegt?
LG Trevor
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 11:41:19
Werner
Hallo,
so in etwa geht es nicht, aber so: 
Option Explicit
Public Sub löschen()
Dim ws As Worksheet, loSpalte As Long, i As Long
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1", "Tabelle2", "Tabelle3"
With ws
loSpalte = .Cells(57, .Columns.Count).End(xlToLeft).Column
For i = loSpalte To 1 Step -1
If .Cells(57, i) = "Nein" Then
Union(.Range(.Cells(9, i), .Cells(17, i)), .Range(.Cells(19, i), _
.Cells(21, i)), .Range(.Cells(23, i), .Cells(25, i)), _
.Range(.Cells(27, i), .Cells(33, i)), _
.Range(.Cells(38, i), .Cells(49, i))).ClearContents
End If
Next i
End With
Case Else
End Select
Next ws
End Sub
Gruß Werner
Anzeige
AW: Dynamische Zellen Range Löschen anhand Spaltenwert
22.11.2018 12:24:55
Trevor_M
Funktioniert einwandfrei! Vielen lieben Dank für die schnelle und professionelle Hilfe!
Zeigt mir wieder wie viel ich noch dazulernen muss.
LG Trevor
Gerne u.Danke für die Rückmeldung. o.w.T.
22.11.2018 13:09:07
Werner

Forumthreads zu verwandten Themen

Makroablauf für bestimmte Spalten
Karsten

Hallo,
ich möchte einen Makro ablaufen lassen, der aber nur ausgeführt wird wenn, sich die aktive Zelle in Spalten B,E,H,K,und N befindet.
Danke für eure Hilfe.
Gruß Karsten
07.03.2009 19:29:06
Thread-ID: 1057747
8 Beiträge
Makro langsam - Spalten löschen und Format
F.

Hallo zusammen
Das folgende Makro habe ich für acht Buchungskreise zusammengebastelt (mir Eurer Hilfe). Alles befindet sich in der gleichen Arbeitsmappe.
Jeder Kreis hat ein Berechnungsblatt und ein Datenblatt. Im Ersteren befindet sich eine Schaltfläche. Diese wird für jeden Kreis ei...
22.07.2009 12:31:31
Thread-ID: 1090484
7 Beiträge
Makro soll in bestimmten Spalten funktionieren.
Karsten


Hallo...
Mir hat jemand aus dem Excelforum diesen Makro erstellt. Kann mir bitte jemand diesen Makro so ändern, dass er nur dann funktioniert, wenn beide selektierten Zellen sich in den Spalten B, E, H, K oder N befinden und die Zellen sich in ungeraden Zeilen befinden (z.B. B3 und E5...
05.10.2009 10:24:17
Thread-ID: 1107217
3 Beiträge
Anzeige
Formel in bestimmte Zellen per makro schreiben??
lisa

Hallo
Ich konnte bislang noch nicht in der Recherche finden und wende mich deshalb an EUCH Spezis.
Vieleicht könnte ihr mir helfen.
In meiner Spalte B steht immer nur in bestimmten Zellen ein Wert, nämlich Ergebnis!
In der Spalte F stehen Werte. Nun möchte ich aber ohne die Wer...
09.11.2009 13:43:49
Thread-ID: 1115507
9 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Anzeige
#NV in Spalte löschen per VBA
edie

Hallo zusammen,
ich versuche vergebens die #NV in der Spalte B per VBA zu löschen bzw. durch eine Null ersetzen.
Das Makro stoppt bei: 'If Cells(i, 2) = "#NV" Then' mit der Fehlermeldung: 'Typen unverträglich'.
Weiß nicht mehr weiter, deshalb bitte um Hilfe, wenn's geht.
Sub Te...
16.02.2010 14:12:15
Thread-ID: 1138929
4 Beiträge
variabel Spalten Löschen
Hermann

Liebe Excel-Gemeinde,
leider komme ich mal wieder nicht weiter und hoffe auf
eure Unterstützung bei 2 für euch winzigen Problemchen.
1) Ich versuche variable Spalten zu löschen mit dem Befehl
ActiveSheet.union(range(cells(1,spaWeg+6),cells(99,spaWeg+25)).EntireColumn.Delete
...
02.05.2010 18:27:25
Thread-ID: 1155013
7 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge
Range definieren bestimmte zellen herauslöschen
Matthias

Hallo,
ich bewundere dieses Forum und habe hier schon zahlreiche Stunden mit Makros lernen und verstehen verbracht. Mittlerweile kann ich auch schon selbst einigermaßen "programmieren" doch bei diesem Projekt versagen meine Kenntnisse total.
In Spalte A habe ich aus einem Warenwirtschaf...
07.08.2010 16:34:44
Thread-ID: 1171074
21 Beiträge
Spalten durchsuchen ggf. Zeile löschen var.Inhalt
Henning

Hallo Experten,
ich bin ganz neu in diesem Forum, in Sachen VBA bin ich leider noch nicht besonders versiert. Ich habe ein Makro geschrieben, das eine Rechnung erstellt und gewisse Zeilen (nicht immer gleich vielem, da logischerweise die Rechnungspositionen variieren) in die Rechnungsvorla...
15.09.2010 09:53:25
Thread-ID: 1177652
10 Beiträge
Zellen vergleichen und löschen (Makro)
David

Hallo,
ich habe im Forum bisschen gestöbert und den Beitrag "Tabelle via Passwort freigeben" gefunden! Genau sowas habe ich auch gesucht.
Ich habe das ganze auch schon ein wenig angepasst. https://www.herber.de/bbs/user/73065.xls
Aber jetzt habe ich noch folgende Fragen:
1. Ich...
15.01.2011 11:50:21
Thread-ID: 1195673
2 Beiträge
Zellen vergleichen und löschen (Makro)
David

Hallo,
ich habe im Forum bisschen gestöbert und den Beitrag "Tabelle via Passwort freigeben" gefunden! Genau sowas habe ich auch gesucht.
Ich habe das ganze auch schon ein wenig angepasst. https://www.herber.de/bbs/user/73065.xls
Aber jetzt habe ich noch folgende Fragen:
1. Ich...
15.01.2011 16:26:39
Thread-ID: 1195683
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige