Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.02.2020 11:08:48 |
Stephan |
|
|
Zellenbezug zwischen mehreren ExcelDateien auf Basis der Farbe |
12.02.2020 21:48:12 |
xlKing |
|
|
|
13.02.2020 11:09:01 |
Gast7284 |
|
|
|
14.02.2020 09:54:20 |
Gast53527 |
|
|
|
14.02.2020 22:24:57 |
Gast38963 |
|
|
Von:
xlKing |
Datum:
12.02.2020 21:48:12 |
Views:
443 |
Rating:
|
Antwort:
|
Thema:
Zellenbezug zwischen mehreren ExcelDateien auf Basis der Farbe |
Hallo Stephan,
mit Farben geht das leider nicht. Aber auf den Eintrag von Werten reagiert Excel mit dem Change-Ereignis. Mal sehen ob ich dich richtig verstanden habe. Wenn irgendwo ein X eingetragen wird, soll die ganze Zeile in die zweite Datei kopiert werden. Korrekt? Das könnte in etwa so aussehen: Der Code gehört in das Tabellenmodul wo du die Werte einträgst.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1) = "X" Or Target.Cells(1) = "x" Then
If Not wbIsOpen("Beispiel_End.xls") Then
Workbooks.Open "E:\Daten\Entwicklung\Tests\Beispiel_End.xls"
End If
Target.EntireRow.Copy
With Workbooks("Beispiel_End.xls").Sheets("Tabelle1")
.Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End With
End If
End Sub
Private Function wbIsOpen(Name) As Boolean
On Error Resume Next
wbIsOpen = Workbooks(Name).Name <> ""
End Function
Gruß Mr. K.
|
- 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
|
|
12.02.2020 11:08:48 |
Stephan |
|
|
Zellenbezug zwischen mehreren ExcelDateien auf Basis der Farbe |
12.02.2020 21:48:12 |
xlKing |
|
|
|
13.02.2020 11:09:01 |
Gast7284 |
|
|
|
14.02.2020 09:54:20 |
Gast53527 |
|
|
|
14.02.2020 22:24:57 |
Gast38963 |
|
|