Excel-Frage...gibt´s das wirklich nicht? - 500 Beiträge pro Seite
eröffnet am 17.03.03 11:25:40 von
neuester Beitrag 17.03.03 13:15:20 von
neuester Beitrag 17.03.03 13:15:20 von
Beiträge: 4
ID: 708.596
ID: 708.596
Aufrufe heute: 0
Gesamt: 265
Gesamt: 265
Aktive User: 0
Top-Diskussionen
Titel | letzter Beitrag | Aufrufe |
---|---|---|
vor 1 Stunde | 8888 | |
vor 52 Minuten | 8482 | |
11.01.09, 16:18 | 7143 | |
vor 53 Minuten | 5592 | |
vor 1 Stunde | 5081 | |
vor 59 Minuten | 4856 | |
heute 17:42 | 4467 | |
vor 1 Stunde | 3780 |
Meistdiskutierte Wertpapiere
Platz | vorher | Wertpapier | Kurs | Perf. % | Anzahl | ||
---|---|---|---|---|---|---|---|
1. | 2. | 18.859,17 | +0,47 | 209 | |||
2. | 1. | 5,0000 | -21,42 | 198 | |||
3. | 4. | 6,9240 | -1,76 | 112 | |||
4. | 6. | 160,70 | -2,06 | 56 | |||
5. | 9. | 0,1970 | +0,25 | 50 | |||
6. | 12. | 5,5720 | -6,16 | 49 | |||
7. | 3. | 33,80 | -26,07 | 45 | |||
8. | 8. | 0,3860 | -13,84 | 43 |
Ich will in Excel einen Wert über alle Blätter einer Mappe suchen. Alle Blätter markieren und suchen macht er nicht... Vielen Dank für Eure Antwort!
schau mal unter: www. herber.de
da werden Sie geholfen!
da werden Sie geholfen!
Vergiss nicht, nach dem Markieren aller Arbeitsblätter auch
das Arbeitsblatt selbst zu markieren!
Muss nämlich funktioniern!
das Arbeitsblatt selbst zu markieren!
Muss nämlich funktioniern!
Guter Hinweis mit Herber.de. Hier das Makro:
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben: " )
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Excel 2002 kann über alle Blätter suchen...
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben: " )
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Excel 2002 kann über alle Blätter suchen...
Beitrag zu dieser Diskussion schreiben
Zu dieser Diskussion können keine Beiträge mehr verfasst werden, da der letzte Beitrag vor mehr als zwei Jahren verfasst wurde und die Diskussion daraufhin archiviert wurde.
Bitte wenden Sie sich an feedback@wallstreet-online.de und erfragen Sie die Reaktivierung der Diskussion oder starten Sie eine neue Diskussion.
Meistdiskutiert
Wertpapier | Beiträge | |
---|---|---|
215 | ||
196 | ||
110 | ||
56 | ||
48 | ||
46 | ||
41 | ||
40 | ||
39 | ||
33 |
Wertpapier | Beiträge | |
---|---|---|
32 | ||
29 | ||
29 | ||
28 | ||
26 | ||
23 | ||
23 | ||
22 | ||
21 | ||
20 |