Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter nach inhalt durchsuchen und lösche

Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 18:37:16
Spenski
Hallo
ich möchte im tabellenblatt "Control" IN Spalte B4 eine zahl eingeben. wenn ich jetzt ein makro über ein CB starte soll folgendes passieren:
durchsuche sheets(1) Spalte A nach dem inhalt (Daten B4) und lösche bei dem treffer die komplette zeile.
durchsuche sheets(2-11 und 16-17) Spalte D nach dem inhalt (Daten B4) und lösche bei übereinstimmung den zelleninhalt
optional:
ich kann nicht nur in B4 ein wert eintragen sondern in B4:B8 und danach soll dann gesucht werden
danke fürs lesen und die ganze hilfe die ich bisher bekommen habe und bekommen werde.
gruss
christian

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 20:35:42
Christian
Hallo Christian,
auch hierzu ist das Archiv voll mit Vorschlägen!
ein Ansatz:
Option Explicit
Sub spenski()
Dim x As Long, y As Long, rowl As Long, rowl1 As Long
Dim wkscont As Worksheet, wksx As Worksheet
Set wkscont = ActiveWorkbook.Worksheets("Control")
With wkscont
rowl1 = ActiveWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To rowl1
Set wksx = ActiveWorkbook.Worksheets("Tabelle1")
If IsNumeric(Application.Match(wksx.Cells(y, 1), .Range(.Cells(4, 2), .Cells(8, 2)), 0)) Then
wksx.Rows(y).ClearContents
End If
Next y
For x = 2 To 11
Set wksx = ActiveWorkbook.Worksheets("Tabelle" & x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
For x = 16 To 17
Set wksx = ActiveWorkbook.Worksheets("Tabelle" & x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
End With
End Sub

MfG Christian

Anzeige
AW: Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 20:59:30
Spenski
hallo christian ... erstmal danke ich dir das du dir die mühe für den code gemacht hast.
desweiteren ist das archive das erste was ich nachschaue...aber bei 100000 einträgen das richtige zu finden ist manchmal nicht so einfach , besonders wenn man nicht genau weiss nach was man suchen soll
einiges für diesen fall hab ich schon gefunden...nur harpert es daran das ich es nur auf bestimmten arbeitsblättern anwenden will.
aber gerade wenn es ums löschen geht möchte ich nicht irgendwas von mir zusammengeflicktes, sondern was sicheres und stabiles.
ich danke dir für den code und werde jetzt damit rumtesten
gruss
christian

Anzeige
AW: Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 21:32:58
Spenski
so hab jetzt versucht den code zu verstehen, klappt denke ich auch . hab ihn auch ein wenig verändert da die blätter nicht Tabelle 2 usw heissen.
Option Explicit

Sub spenski()
Dim x As Long, y As Long, rowl As Long, rowl1 As Long
Dim wkscont As Worksheet, wksx As Worksheet
Set wkscont = ActiveWorkbook.Worksheets("Control")
With wkscont
rowl1 = ActiveWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To rowl1
Set wksx = ActiveWorkbook.Worksheets("Tabelle1")
If IsNumeric(Application.Match(wksx.Cells(y, 1), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
For x = 2 To 11
Set wksx = ActiveWorkbook.Worksheets(x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0)) Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
For x = 16 To 17
Set wksx = ActiveWorkbook.Worksheets(x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
End With
End Sub
im blatt 2-11 und 16-17 soll aber nicht die ganze zeileninhalt gelöscht werden sondern nur die zelle in spalte d.
da muss wksx.Rows(y).ClearContents ersetzt werden oder?
gruss

Anzeige
AW: Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 21:40:50
Christian
Hallo Christian,
ja, dass hatte ich erst im nachhinein gelesen.
wksx.Cells(y, 4).ClearContents

MfG Christian

AW: Tabellenblätter nach inhalt durchsuchen und lösche
05.08.2014 21:45:37
Spenski
dankeschön

AW: Alternative Lösung
05.08.2014 22:19:11
Daniel
Hallo
da du ja was lernen willst, hier mal eine alternative Lösung mit einem ganz anderen Ansatz.
allerdings dürfen in den Zellen keine Formeln stehen, es müssen feste Werte sein:
Sub test()
Dim i As Long
Dim Zelle As Range
'--- Löschen Blatt 1 Spalte A
With Sheets(1).UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(CountIf(Control!R4C2:R8C2,RC1)>0,0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
'--- andere Blätter auswählen
Sheets(2).Select
For i = 2 To 17
Select Case i
Case 2 To 11, 16 To 17
Sheets(i).Select False
Case Else
End Select
Next
'--- Inhalte Löschen Spalte D
Columns(4).Select
For Each Zelle In Sheets("Control").Range("B4:B8")
If Zelle.Value  "" Then Selection.Replace Zelle.Value, "", xlWhole
Next
Sheets("Control").Select
End Sub
Gruß Daniel

Anzeige
AW: Alternative Lösung
05.08.2014 22:55:39
Spenski
danke daniel.
funktionieren tut es :) , hab aber auch nix anderes erwartet :)
ja ich glaube an dem text kann ich einiges lernen... die hälfte der befehle hab ich bisher noch nie gehört bzw gelesen. werde mich morgen mal ranmachen und alles aufschreiben.
dank euch beiden
gute nacht

AW: Alternative Lösung
06.08.2014 00:16:04
Daniel
vielleicht als Hilfe:
der Code orientiert sich an der Methode, mit der man die Aufgabe am schnellsten von Hand, dh ohne Makrounterstützung lösen würde.
Gruß Daniel

AW: Alternative Lösung
06.08.2014 06:20:58
Spenski
hallo daniel
gruppe bilden und dann ersetzen?
mfg
christian

AW: Alternative Lösung
06.08.2014 09:00:34
Daniel
Ja.
Gruß Daniel

Anzeige
AW: Alternative Lösung
06.08.2014 18:38:23
Spenski
danke

310 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 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
1
2
7
2
2
5
1
5
10
4
3
9
3
1
2
17
8
2
2
4
5
1
4
1
3