Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.12.2020 18:09:27 |
Volibär |
|
|
|
15.12.2020 18:51:26 |
Gast80090 |
|
|
|
16.12.2020 08:32:17 |
Volibär |
|
|
Zeilen kopieren bis bestimmte Schriftfarbe |
16.12.2020 09:06:36 |
volti |
|
|
Von:
volti |
Datum:
16.12.2020 09:06:36 |
Views:
497 |
Rating:
|
Antwort:
|
Thema:
Zeilen kopieren bis bestimmte Schriftfarbe |
Hallo Volibär,
neben den Fehlern ist m.E. auch Dein Ansatz nicht so günstig.
Hier mal eine Idee, wie Du Dein Anliegen umsetzen könntest. Ich gehe davon aus, dass Du nur Werte und nur die erste gefundene grüne Zeile jeweils kopieren möchtest....
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 |
|
Sub Colorfinder()
Dim WSh1 As Worksheet, WSh2 As Worksheet
Dim i As Integer, iZeile As Long, iOutZeile As Long
Set WSh2 = ThisWorkbook.Worksheets("Tabelle3")
iOutZeile = WSh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 2 ' Von zwei Tabellem kopieren
If i = 1 Then
Set WSh1 = ThisWorkbook.Worksheets("Tabelle1")
Else
Set WSh1 = ThisWorkbook.Worksheets("Tabelle2")
End If
With WSh1
For iZeile = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If .Cells(iZeile, "A").Font.Color = RGB(84, 130, 53) Then
' Jetzt kopieren
WSh2.Rows(iOutZeile).Value = .Rows(iZeile).Value
iOutZeile = iOutZeile + 1
Exit For
End If
Next iZeile
End With
Next i
End Sub
|
_________
viele Grüße
Karl-Heinz
|
- 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
|
|
15.12.2020 18:09:27 |
Volibär |
|
|
|
15.12.2020 18:51:26 |
Gast80090 |
|
|
|
16.12.2020 08:32:17 |
Volibär |
|
|
Zeilen kopieren bis bestimmte Schriftfarbe |
16.12.2020 09:06:36 |
volti |
|
|