Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen - markieren - löschen

suchen - markieren - löschen
21.02.2008 15:27:29
Marcus
Hallo, habe mein Problem schon einmal geschildert. Habe allerdings leider bis jetzt leider keine Lösung
erhalten.
Problem: (Das soll passieren)
- Schaltfläche in Register 1 klicken
- Makro soll starten (das ist das Makro was ich jetzt noch brauche)
- Wert aus Register 1 in Zelle G4 soll in Register 2 in Spalte 2 gesucht werden
- Wenn Wert gefunden soll die Zeile von C bis M markiert und der Inhalt gelöscht werden
- Dann sollen im Datenblatt 2 die Spalten C bis M sortiert werden damit keine Leerräume entstehen.
- Und zum Schluss soll dann wieder Registerblatt 1 vorgeblendet werden.
Vielleicht hat ja noch wer eine Idee... BITTE...
Grüße und vielen Dank im Voraus
Marcus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen - markieren - löschen
21.02.2008 15:39:14
Beverly
Hi Marcus,
eine Lösung hattest du bereits erhalten, nur hat sie dich nicht befriedigt.

Sub Marcus()
Dim raZelle As Range
With Worksheets("Eingabe Daten")
Set raZelle = .Columns(3).Find(Range("B14"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
.Range("A" & raZelle.Row & ":M" & raZelle.Row).ClearContents
.UsedRange.Sort key1:=.Columns(1), header:=xlGuess
End If
End With
End Sub


Wenn eine Spaltenüberschrift vorhanden ist, musst du xlGuess durch xlYes ersetzen.
Falls die gesamte gefundene Zeile gelöscht werden soll, kann man sich das Sortieren sparen


Sub Marcus2()
Dim raZelle As Range
With Worksheets("Eingabe Daten")
Set raZelle = .Columns(3).Find(Range("B14"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
.Rows(raZelle.Row).EntireRow.Delete
End If
End With
End Sub



Anzeige
AW: suchen - markieren - löschen
21.02.2008 16:10:00
Marcus
Vielen Dank, werd nochmal testen und mich dann wieder melden.
Gruß Marcus

AW: suchen - markieren - löschen
21.02.2008 16:27:08
Marcus
Vielen dank, scheint zu klappen, hab nur noch ein wenig geändert.
So hat es bei mir hingehauen:

Sub Marcus()
Dim raZelle As Range
With Worksheets("Eingabe - Daten")
Set raZelle = .Columns(3).Find(Range("B14"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
.Range("A" & raZelle.Row & ":M" & raZelle.Row).ClearContents
.UsedRange.Sort key1:=.Columns(3), header:=xlGuess
End If
End With
End Sub


Die Sortierung hatte nicht so ganz hingehauen, es wurde immer ab Spalte A sortiert und nicht ab C.
Thx Marcus

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige