bin immer noch dabei mein Makro zu verfeinern!
Ich möchte immer noch aus einer Datei grau hinterlegte Felder in eine andere Datei kopieren!
Das Makro bis jetzt:
Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim Zelle As Object
Dim Datei1 As Worksheet
Dim Datei2 As Worksheet
Set Datei1 = Workbooks("Test").Worksheets("Tabelle1")
Set Datei2 = Workbooks("Test_XXL").Worksheets("Tabelle2")
For Each Zelle In Datei1.UsedRange
If Zelle.Interior.ColorIndex = 15 Then _
Datei2.Range(Zelle.Address) = Zelle
Next Zelle
Workbooks("Test_XXL").Worksheets("Tabelle2").Activate
Datei2.UsedRange.Select
For Each Zelle In Selection
If Zelle.Value <> "" Then
Zelle.Interior.ColorIndex = 15
End If
Next
End Sub
Was immer noch nicht funktioniert:
- Es wird eine Tabelle eingefügt, aber deren Umrandungen werden
nicht mitkopiert, gibt es eine Möglichkeit die Umrandungen
auch noch einzusetzen? (ohne Kopierfunktion, denn das
verlangsamt das Programm sehr)
- Ich möchte, dass wenn er Daten über Zeile 19 einfügt, dass er
beim einfügen gleich neue Zeilen einfügt (sonst überschreibt er
mir andere Daten)
[Habe es mit folgendem Makro schon versucht, allerdings ohne
Erfolg]
If Datei2.Range(Zelle.Address) <> "" And Zelle.Row > 19 Then _
Datei2.Rows(Zelle.Row).EntireRow.Insert
End If
Vielleicht kann mir ja nochmal jemand helfen!
LG Chris