Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert per VBA suchen, gefunden - Zeile löschen

Wert per VBA suchen, gefunden - Zeile löschen
26.09.2007 17:26:00
Ina
Hallo Forum,
per TextBox suche ich Werte in der Tabelle1 (Spalte B - Spalte F). Das Ergebnis der Suche wird in einer ListBox aufgelistet und kann per Klick in weiteren TextBoxen mit allen Werten dargestellt, geändert und zurückgeschrieben werden.
So weit alles Ok, jetzt folgen meine Problemfälle...
Problem 1
Einige Werte möchte ich löschen, das heisst, wenn gefunden, soll die Zeile, die den Wert enthält, per Klick auf einen CommandButton gelöscht werden.
Problem 2
In der Spalte B werden - falls Spalte C einen Wert enthält - aufsteigende Nummern mit der Formel
=WENN(C5>"";B4+1;"") vergeben.
Beim Löschen einer Zeile erscheint in Spalte B der Folgezeile #BEZUG.
Wer kann mir bei meinen Problemen - möglichst mit einem Codebeispiel - weiterhelfen?
Ich habe meine Mappe hochgeladen. Zu finden unter:
https://www.herber.de/bbs/user/46354.xls
Danke für eure Hilfe!
Gruss, Ina

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert per VBA suchen, gefunden - Zeile löschen
26.09.2007 19:57:33
Daniel
Hi
zu 2) klar, das der Fehler kommt, schließlich löschst du dir ja die Zelle, auf die sich die Formel bezieht, weg.
das löst du über einen indirekten Zellbezug mit BEREICH.VERSCHIEBEN oder INDIREKT.
=wenn(C5>"";bereich.verschieben(B5;-1;0)+1;"")
=wenn(C5>"";INDIREKT("B"&ZEILE()-1)+1;"")
zu 1
wenn du die Zeilen-Nr der zu löschenden Zeile hast, geht das einfach mit
ROWS(xxx).delete.
Als Code für deinen Commandbutton 3 dann so:

Private Sub CommandButton3_Click()   '  Löschen
Dim intZ As Integer
Dim durchsuchen, finden As Range
Set durchsuchen = Sheets("Tabelle1").Range("B4:B" & _
Sheets("Tabelle1").Range("B65536").End(xlUp).Row)
For Each finden In durchsuchen
If finden.Text = TextBox1.Text Then
intZ = finden.Row
Exit For
End If
Next finden
Rows(intZ).Delete
End Sub


Gruß, Daniel

Anzeige
Hallo daniel, das klappt bestens! Riesigen Dank!
26.09.2007 20:19:00
Ina
Vielen, vielen Dank!

207 Forumthreads zu ähnlichen Themen

Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Anzeige
Suchen und Zeile kopieren
Steffi

Hallo liebes Forum,
wie kann ich es am besten lösen...?
Ich habe in Tabelle2 von B1 bis B3500 Daten stehen.
In Tabelle1 habe ich von A1 bis A3500 die Daten auch aber in nicht sortierter Reihenfolge stehen.
Nun möchte ich die Daten von Tabelle2 B1 bis B3500 mit Tabelle1 A1 bis A3...
15.07.2009 22:28:08
Thread-ID: 1088922
2 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 Beiträge
Anzeige
suchen, Treffer-Zeilen löschen
David

Hallo zusammen,
ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht...
16.11.2009 17:09:14
Thread-ID: 1117704
13 Beiträge
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
1.) ich suche eine Formel die einen Text über mehrere Spalten und zeilen nach einem bestimmten Text durchsucht z.B. " paar Socken" und soll dann den Wert der Zeile wiedergeben, d.h. in welcher Zeile dieser Wert ist.
Toni
25.11.2009 21:19:38
Thread-ID: 1120085
16 Beiträge
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
ich suche eine Formel, mit der ich einen Teil eines Wertes finden und die Formel die Zeile wiedergibt.
=MAX(ISTZAHL(FINDEN("linke Socke";A1:G99))*ZEILE(A1:G99)) als Matrix, ist aus einem alten Beitrag
nun will ich nicht nur die "linke Socke" sondern nur noch "ock" soll gesich...
03.12.2009 21:56:16
Thread-ID: 1121712
3 Beiträge
String in Tabelle suchen und die Zeile Fett markie
Philipp

Hallo im Word Forum konnte mir keiner weiterhelfen, deshalb versuche ich hier mein Glück
Ich habe eine Tabelle in der ich nach einem String suchen möchte.
Die Zeile in der sich das String befindet soll Fett gemacht werden.
So wie ich es versuche klappt es leider nicht. Hab ihr ene...
20.01.2010 13:26:33
Thread-ID: 1131336
4 Beiträge
Zeichen in Sheet suchen und links löschen
Tom

Hallo!
ich habe folgendes Problem. In einer Tabelle habe ich eine Spalte (E), in der ich folgende Werte habe:
abcdefgh O\ 12345
oder auch
abcdefgh P\ 12345
ich müsste in jeder Zeile dieser Spalte alles links von O\ oder P\ löschen :
abcdefgh O\ 12345 --> O\ 12345
09.02.2010 15:13:34
Thread-ID: 1137079
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

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
18
1
1
2
9
12
15
2
3
5
2
2
7
8
9
9
4
4
1
3
3
4
2
2
5