S

Problem Makro
Nach Begriff in einer Spalte suchen Sub BegriffSuchen()
Dim gZelle As Range
Dim Msg1$, Msg2$, Msg3$, sBegriff$
Msg1 = "Bitte Suchbegriff eingeben:"
Msg2 = "Suchbegriff wurde nicht gefunden!"
Msg3 = "Suchbegriff befindet sich in Zelle "
sBegriff = InputBox(Msg1)
If sBegriff = "" Then Exit Sub
Set gZelle = Worksheets(1).Columns(1) _
.Find(sBegriff, lookat:=xlWhole)   'Tabelle1, Spalte 1
If gZelle Is Nothing Then
MsgBox Msg2
Else
MsgBox Msg3 & gZelle.Address(False, False)
End If
End Sub
Nach Begriff in mehreren Spalten suchen

- Sucht in 2 Spalten (frei definierbar)
- Sucht von unten nach oben ( Anleitung für Andersrum ist dabei)
- Sucht nach Rückfrage auch weiter
- die gefundene Zelle wird selektiert
- Groß-/Kleinschreibung ist egal
Option Compare Text 'Anweisung Groß-/Kleinschreibung egal
Sub SuchenIn2Spalten()
Dim Sp1, Sp2, lZeile2, Such, Frage
Sp1 = 1 '1.Suchspalte
Sp2 = 4 '2.Suchspalte
'Ermittlung der absoluten letzten Zeile
lZeile2 = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
Such = InputBox("Bitte geben Sie den Suchbegriff ein", "Suche")
If Such = "" Then Exit Sub
If IsNumeric(Such) Then Such = Such * 1
For i = lZeile2 To 1 Step -1
'Vorwärts: For i = 1 to lZeile2
If Cells(i, Sp1) = Such Then
Cells(i, Sp1).Select
Frage = MsgBox("Ist dies der gesuchte Eintrag?", vbYesNo)
If Frage = vbYes Then Exit Sub
End If
If Cells(i, Sp2) = Such Then
Cells(i, Sp2).Select
Frage = MsgBox("Ist dies der gesuchte Eintrag?", vbYesNo)
If Frage = vbYes Then Exit Sub
End If
Next i
MsgBox "Der gesuchte Eintrag wurde nicht gefunden"
End Sub
aktive Spalte hervorheben
(keine sonstigen farbige Zellen möglich außer der bedingten Formatierung)
'Makro im VBA-Editor in die betreffende Tabelle schreiben!

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Alle Farben in Tabelle löschen
Cells.Interior.ColorIndex = xlNone
'neue Zeile einfärben
Columns(Target.Column).Interior.ColorIndex = 34
End Sub


 

Letzte Änderungen auf dieser Seite am 29.10.2006

Valid XHTML 1.0 Transitional    Valid CSS!

Berti's ExcelABC mit vielen Tipps und Tricks rund um Excel und die Makros bzw. VBA

Seitenanfang

A B C D E F G H i J K L M N O P Q R S T U V W X Y Z
Excel: 39  |  Formeln: 1  |  Funktionen: 8  |  Makro / VBA: 40  |  Hintergrundinfos: 7  |  Beispieldateien: 11  |  Komplettlösungen: 1