Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt eines Teil einer Tabelle entfernen - VBA

Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 09:44:42
Fritz
Hallo VBA-Experten,
ich würde gerne über ein Makro aus dem Tabellenblatt "Statistik den Inhalt er Zellen des Zellbereichs A bis I entfernen (ClearContents) und zwar aller Zeilen, in denen in der Spalte B der gleiche Text steht wie in der Zelle BA1 des Tabellenblatts Statistik.
Beispiel:
Der Inhalt der Zelle BA1 befindet sich zusätzlich in B5, B9 und B14:
Dann sollte der Zellinhalt folgender Zellinhalte "geleert" werden:
A5:I5, A9:I9 und A14:I14
Für eure Unterstützung im Voraus besten Dank.
mfg
Fritz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 09:57:13
Fritz
Hallo Forumsbesucher,
muss eben völlig überraschend weg und kann mich erst heute abend wieder melden.
Danke und Gruß
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 10:11:37
Daniel
Hi
mal davon ausgehend, dass in Spalte B keine Formeln stehen und auch keine Wahrheitswerte: 
With Sheets("Statistik")
.Columns(2).Replace .Range("BA1").Value, True, xlwhole
if Worksheetfunction.CountIF(.columns(2), True) then
Intersect(.columns(2).SpecialCells(xlcelltypeconstants, 4).entirerow, _
.Range("A:I")).ClearContents
end if
End with
Gruß Daniel
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 10:19:28
Bernd
Servus Fritz,
meinst du so in der Art? 

Sub test()
Dim i As Integer
Dim intLZ As Integer
intLZ = ThisWorkbook.Sheets("Statistik").Cells(Rows.Count, 2).End(xlUp).Row
With Sheets("Statistik")
For i = 2 To intLZ
If .Cells(i, 2).Value = .Cells(1, "BA").Value Then
.Range(.Cells(i, 1), .Cells(i, 9)).ClearContents
End If
Next i
End With
End Sub
Grüße, Bernd
Anzeige
Zeilen-Inhalte löschen mit Bedingung
01.02.2019 10:17:27
Beverly
Hi Fritz,
meinst du so etwas:
Sub Leeren()
Dim lngZeile As Long
With Worksheets("Statistik")
For lngZeile = 1 To .Columns(1).Find(What:="*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If .Cells(lngZeile, 2) = .Range("BA1") Then _
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 9)).ClearContents
Next lngZeile
End With
End Sub

und noch eine..
01.02.2019 10:25:06
UweD 
Sub Weg_damit()
    Dim TB, LR As Long, RNG As Range, Finde As Range
    Dim SP As Integer, Z1 As Integer
    
    Set TB = Sheets("Statistik")
    Set RNG = TB.Columns("A:I")
    Set Finde = Range("BA1")
    
    SP = 2 'Spalte B 
    Z1 = 2 'Überschrift vorhanden 
    
    With TB
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 

        'Filtern nach BA 
        If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten 
        .Columns(SP).AutoFilter
        .Columns(SP).AutoFilter Field:=1, Criteria1:=Finde
        
        'Schnittmenge aus Spaltenbereich / sichtbaren Zeilen / genutze Zeilen leeren 
        Intersect(RNG, Rows.SpecialCells(12), .Rows(Z1).Resize(LR - Z1 + 1)).ClearContents
        
        .AutoFilterMode = False
    End With
    
End Sub
LG UweD
Anzeige
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 19:16:02
Fritz
Hallo liebe Helfer,
euch allen ganz herzlichen Dank für Eure Unterstützung.
Habe alle Makros getestet:
Daniels Makro funktioniert genau so, wie ich das haben wollte.
Nach Ausführung der Codes von Karin und Bernd stelle ich im Tabellenblatt "Statistik" keine Veränderung fest, eine Fehlermeldung erfolgt jedoch jeweils auch nicht.
Uwes Code filtert bei mir alle Zeilen weg, in denen in Spalte B etwas eingetragen ist, gelöscht bzw. entfernt wird aber nichts. Es erfolgt eine Fehlermeldung, nach der im Code die Zeile die mit Intersect beginnt mit gelber Farbe markiert wird.
Euch allen beste Grüße
Fritz
Anzeige
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 20:17:51
UweD
Zu meinem Makro:
Dann ist BA1 leer.
Das kann mal natürlich vorher noch abfangen.
Daniels Lösung ist aber genial kompakt.
LG UweD
AW: Inhalt eines Teil einer Tabelle entfernen - VBA
01.02.2019 20:25:37
Fritz
Hallo Uwe, Karin und Bernd
es tut mir richtig leid, ich habe in der Eile Mist gebaut. Beim Test war in allen drei Fällen BA1 leer, das hätte ich aber merken müssen, bitte aufrichtig um Nachsicht.
Auch eure Codes funktionieren einwandfrei.
Nochmals ganz herzlichen Dank an alle und beste Grüße
Fritz

308 Forumthreads zu ähnlichen Themen

Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
Anzeige
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
7
2
6
8
15
3
2
3
7
6
1
2
4
1
9
2
4
3
3
4
1
2
2
6