Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2019 12:56:27 |
Thomas |
|
|
Werte einer Variablen nur in gelbe Zellen übergeben |
16.08.2019 20:09:20 |
Gast34753 |
|
|
|
19.08.2019 09:22:48 |
Thomas |
|
|
|
20.08.2019 06:53:08 |
Gast34573 |
|
|
Von:
Gast34753 |
Datum:
16.08.2019 20:09:20 |
Views:
415 |
Rating:
|
Antwort:
|
Thema:
Werte einer Variablen nur in gelbe Zellen übergeben |
Sub S_Sicherung()
'thx to http://www.tushar-mehta.com/publish_train/xl_vba_cases/1001%20range.find%20and%20findall.shtml
Dim shSource As Worksheet, shTarget As Worksheet
Dim FirstCell As Range
Dim CurrCell As Range
Dim rng6 As Range
Set shSource = Sheets("BH12-BH20")
Set shTarget = Sheets("U3_MA_NSHV")
With Application.FindFormat
.Clear
.Interior.ColorIndex = 6
End With
With shSource.Columns(10)
Set FirstCell = .Find(What:="", After:=.Cells(.Cells.Count), SearchFormat:=True)
If Not FirstCell Is Nothing Then
Set CurrCell = FirstCell
Do
If Not rng6 Is Nothing Then
Set rng6 = Union(rng6, CurrCell)
Else
Set rng6 = CurrCell
End If
Set CurrCell = .Cells.Find(What:="", After:=CurrCell, SearchFormat:=True)
Loop Until CurrCell.Address = FirstCell.Address
End If
End With
Application.FindFormat.Clear
rng6.Copy
With shTarget
'wird der erste Sicherungswert durch das angegebene Offset an der richtigen Stelle eingefügt
Set FirstCell = .Range(rng6.Cells(1).Offset(37).Address)
FirstCell.PasteSpecial xlPasteValues
'oder FirstCell explizit angeben
End With
End Sub
|
- 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
|
|
16.08.2019 12:56:27 |
Thomas |
|
|
Werte einer Variablen nur in gelbe Zellen übergeben |
16.08.2019 20:09:20 |
Gast34753 |
|
|
|
19.08.2019 09:22:48 |
Thomas |
|
|
|
20.08.2019 06:53:08 |
Gast34573 |
|
|