|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.04.2008 09:59:24 |
mary |
|
|
 Aw:Wert suchen kleiner/grösser und ganze row kopie |
10.04.2008 13:14:41 |
Holger |
|
|
|
10.04.2008 13:42:31 |
mary |
|
|
|
11.04.2008 09:34:20 |
Holger |
|
|
Von:
Holger |
Datum:
10.04.2008 13:14:41 |
Views:
1516 |
Rating:
|
Antwort:
|
Thema:
Aw:Wert suchen kleiner/grösser und ganze row kopie |
Hallo mary,
ich habe dir eine Lösung verfasst, bei der die zu kopierenden Zeilen in ein Blatt "Kopiertabellenblatt" geschrieben werden, das zu Beginn des Makros entweder neu angelegt oder dessen Inhalte gelöscht werden.
Ich hoffe, ich habe dich richtig verstanden.
Sub Suchen_3()
Dim d, b, i, j, a
b = ActiveSheet.Name
i = 0
For Each s In Worksheets
If "Kopiertabellenblatt" = s.Name Then i = 1: Exit For
Next
If i = 0 Then
Set d = Sheets.Add
ActiveSheet.Name = "Kopiertabellenblatt"
End If
Sheets("Kopiertabellenblatt").Cells.ClearContents
Sheets(b).Activate
For i = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Cells(i, 1)) = True And Cells(i, 1) >= 85 Then
Rows(i).Copy
j = j + 1
Worksheets("Kopiertabellenblatt").Cells(j, 1).PasteSpecial
End If
Next i
Sheets("Kopiertabellenblatt").Activate
End Sub
Viel Erfolg
Holger
mary schrieb am 10.04.2008 09:59:24:
Hallo zusammen,
Mein Problem liegt darin, dass ich nicht weiss wie ich anfangen soll.
Also ich muss aus der Spalte A alle die 85 sind ausgeben (Testweise Msgbox). Dabei muss man jedes mal die ganze Reihe kopieren.
Beispiel:
Wenn in der Zelle A45 99 steht muss man die ganze Row A45 (mit den anderen Spalten B, C, ..) kopieren und ausgeben.
Kann mir jemand helfen. Danke
Gruss |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.04.2008 09:59:24 |
mary |
|
|
Aw:Wert suchen kleiner/grösser und ganze row kopie |
10.04.2008 13:14:41 |
Holger |
|
|
|
10.04.2008 13:42:31 |
mary |
|
|
|
11.04.2008 09:34:20 |
Holger |
|
|