Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1208to1212
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
Bereich durchsuchen gefundenen Wert makieren.
lisa
Hallo Experten
Ich habe hier ein Makro mit dem ich einen Bereich nach einen Wert aus meiner inputbox durchsuche.
ich bekomme es aber nicht hin, den gefundenen Wert bzw. die ganze Zeile zu makieren.
ich würde mich über eine Unterstützung freuen!
Hat jemand eine Idee dazu?

Private Sub CommandButton2_Click()
Dim rngC As Range, strTitel As String, strZelle As String
strTitel = InputBox("Welcher Titel wird gesucht?", "Buchtitel")
For Each rngC In UsedRange
If rngC = strTitel Then
strZelle = rngC.Address
End If
Next
If strZelle = "" Then
MsgBox "Dieser Titel ist nicht vorhanden"
Else
'wenn dieser Wert aus der msgbox gefunden wurde, dann ganze Zeile makieren?
End If
End Sub

Gruß Lisa

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich durchsuchen gefundenen Wert makieren.
01.04.2011 12:02:20
Rudi
Hallo,
Range(strZelle).Entirerow.Select
Gruß
Rudi
SUPER! danke vielmals! oT
01.04.2011 12:18:00
lisa
AW: Bereich durchsuchen gefundenen Wert makieren.
01.04.2011 13:06:07
lisa
Hallo noch einmal,
Ich hätte hierzu gern den Code erweitert um im Tabellenblatt2 statt Tabellenblatt1 zu suchen!
Wenn ich also Sheets("Tabelle2").Activate vorweg eingebe, wechsel ich ins Tabellenblatt2 die Suche erfolgt aber im Tabellenblat1. Was genau muss ich hierzu umstellen?
Könnte ich bitte noch einmal von euch Hilfe bekommen?
Private Sub CommandButton2_Click()
Dim rngC As Range, strTitel As String, strZelle As String
strTitel = InputBox("Welcher HU wird gesucht", "HU löschen")
For Each rngC In UsedRange
If rngC = strTitel Then
strZelle = rngC.Address
End If
Next
If strZelle = "" Then
MsgBox "Dieser Titel ist nicht vorhanden"
Else
Range(strZelle).EntireRow.Select
End If
Dim Eingabewert As Byte
Eingabewert = MsgBox("löschen?", vbYesNo, "Test")
If Eingabewert = vbYes Then
Selection.Delete Shift:=xlUp
Range("a1").Select
Else
If Eingabewert = vbNo Then
Range("a1").Select
End If
End If
End Sub

Danke für die freundliche Unterstüzung Lisa
Anzeige
AW: Bereich durchsuchen gefundenen Wert makieren.
01.04.2011 13:12:04
Rudi
Hallo,
Private Sub CommandButton2_Click()
Dim rngC As Range, strTitel As String, strZelle As String
strTitel = InputBox("Welcher HU wird gesucht", "HU löschen")
With Sheets(2)
For Each rngC In .UsedRange
If rngC = strTitel Then
strZelle = rngC.Address
End If
Next
If strZelle = "" Then
MsgBox "Dieser Titel ist nicht vorhanden"
Else
.Activate
.Range(strZelle).EntireRow.Select
End If
End With
If MsgBox("löschen?", vbYesNo, "Test") = vbYes Then
Selection.Delete Shift:=xlUp
End If
Range("a1").Select
End Sub

Gruß
Rudi
super schnell! herzlichsten Dank!! Schönes WE Lisa
01.04.2011 13:19:32
lisa

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige