Supportnet / Forum / Tabellenkalkulation
zahlen suche im excel
Frage
tach
ich will mehrere zahlen auf einmal in meinen tabellen suchen. und gleich markiert haben.
hab nur keine ahnung wie.
bitte leute helft mir.
Antwort 1 von martl
Hallo marth,
vielleicht hilft Dir Format/Bedingte Formatierung
weiter. Hier kannst Du bist zu 3 Bedingungen für Werte die in einer Zelle enthalten sind, hinterlegen, die dann ein zu bestimmendes Format erhalten. Es können hierbei jedoch nicht mehr als drei Zahlen auf einmal gesucht und gefärbt werden.
Im Forum selbt gabs dazu auch schon ein paar anfragen unter "Bedingte Formatierung", vielleicht ist da noch was dabei.
Grüße
martl
vielleicht hilft Dir Format/Bedingte Formatierung
weiter. Hier kannst Du bist zu 3 Bedingungen für Werte die in einer Zelle enthalten sind, hinterlegen, die dann ein zu bestimmendes Format erhalten. Es können hierbei jedoch nicht mehr als drei Zahlen auf einmal gesucht und gefärbt werden.
Im Forum selbt gabs dazu auch schon ein paar anfragen unter "Bedingte Formatierung", vielleicht ist da noch was dabei.
Grüße
martl
Antwort 2 von nighty
hi alle
vielleicht brauchbar :)
es ist moeglich bis zu 20 zahlenkolonnen getrennt durch ein leerzeichen anzugeben die anschliessend gesucht werden und bei vorhandenen, sie rot faerbt.
Sub Makro1()
Dim wert01 As String
Dim wert(20)
b = 1
wert01 = InputBox("Werte eingeben", "beispiel 34 234 2 567")
For t = 1 To Len(wert01)
If Mid$(wert01, t, 1) = " " Then
b = b + 1
Else
wert(b) = wert(b) + Mid$(wert01, t, 1)
End If
Next t
Rem ende
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
A = LastCell.Row
Do While Application.CountA(Rows(A)) = 0 And A <> 1
A = A - 1
Loop
alta = A
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta
lspalte = altb
For tt% = 65 To 65 + lspalte - 1
For t1% = 1 To lzeile
For rr% = 1 To 20
If Range(Chr$(tt%) & t1%) = Val(wert(rr%)) And Val(wert(rr%)) <> 0 Then
Range(Chr$(tt%) & t1%).Interior.ColorIndex = 3
End If
Next rr%
Next t1%
Next tt%
End Sub
vielleicht brauchbar :)
es ist moeglich bis zu 20 zahlenkolonnen getrennt durch ein leerzeichen anzugeben die anschliessend gesucht werden und bei vorhandenen, sie rot faerbt.
Sub Makro1()
Dim wert01 As String
Dim wert(20)
b = 1
wert01 = InputBox("Werte eingeben", "beispiel 34 234 2 567")
For t = 1 To Len(wert01)
If Mid$(wert01, t, 1) = " " Then
b = b + 1
Else
wert(b) = wert(b) + Mid$(wert01, t, 1)
End If
Next t
Rem ende
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
A = LastCell.Row
Do While Application.CountA(Rows(A)) = 0 And A <> 1
A = A - 1
Loop
alta = A
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta
lspalte = altb
For tt% = 65 To 65 + lspalte - 1
For t1% = 1 To lzeile
For rr% = 1 To 20
If Range(Chr$(tt%) & t1%) = Val(wert(rr%)) And Val(wert(rr%)) <> 0 Then
Range(Chr$(tt%) & t1%).Interior.ColorIndex = 3
End If
Next rr%
Next t1%
Next tt%
End Sub
Antwort 3 von nighty
hi nochmal
in dieser zeile ist der farbindex,in diesem falle 3
Range(Chr$(tt%) & t1%).Interior.ColorIndex = 3
statt die 3 waere die defaulteinstellung -4142
gruss nighty :)
in dieser zeile ist der farbindex,in diesem falle 3
Range(Chr$(tt%) & t1%).Interior.ColorIndex = 3
statt die 3 waere die defaulteinstellung -4142
gruss nighty :)
Antwort 4 von nighty
hi alle
oder mehr zahlen :)
dann diese beliebig und synchron hoehersetzen
statt die 20,geht auch 1000 oder hoeher :)
diese beiden zeilen
Dim wert(20)
For rr% = 1 To 20
gruss nighty
oder mehr zahlen :)
dann diese beliebig und synchron hoehersetzen
statt die 20,geht auch 1000 oder hoeher :)
diese beiden zeilen
Dim wert(20)
For rr% = 1 To 20
gruss nighty