7.1k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo Excelfreunde,
ich möchte den genauen Wert (Summe) in einer Spalte finden.
A5 = Kalenderwoche nach der In Spalte C gesucht werden soll.
Danke im Voraus für Eure Hilfe
Gruß
fedjo
Spalte C:
50
52
4
5
Wenn ich nach KW (5) suche zeigt das Makro immer KW (50) an. Was muß ich am Makro verändern?

Sub Suchen ()
'aktuelle KW suchen
Dim lngI As Long, strSuch As String, lngAnz As Long
On Error Resume Next
strSuch = Sheets("Lieferzeiten").Range("A5").Value
lngAnz = WorksheetFunction.CountIf(Columns(3), strSuch)
Columns(3).Find(What:=strSuch, LookIn:=xlValues, MatchCase:=False).Activate
For lngI = 1 To lngAnz - 1
End Sub

12 Antworten

0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi fedjo :-)

falls du noch tueffteln moechtest ^^

die findfunction nach´antwort 2 aufbauen ohne activate
dann koenntest du bei dieser zeile

Range("F2:F" & ActiveCell.Row + 3).ClearContents

auch das entfernen ActiveCell.Row

da du ja ueber

suche.Row
suche.Column

positionen bekommst

gruss nighty
0 Punkte
Beantwortet von
Hi nighty,
ich danke dir noch mal für deine Unterstützung, du hast mir sehr geholfen mein Problem zu lösen.

Ich wünsche dir noch einen schönen Sonntag.

Gruß
fedjo
...