VBA Kopieren / Einfügen mit Format
05.11.2013 18:29:28
Stefan
ich habe ein kleines Problem :D ich lasse aus einem tabellenblatt etwas kopieren und in ein anderes einfügen mit Format. Nun das erste problem. Wenn die Überschrift Fett und darunter alles normal steht übernimmt er alles in Fett beim Einfügen. Hier mein Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then
Cells(2, 2) = "Nichts Ausgewählt"
End
End If
If Target.Address = "$B$2" Then
If Cells(2, 2) = "Nichts Ausgewählt" Then
End
Else
For intRow = 1 To 100
If Target.Value = Worksheets("DP").Cells(intRow, 1).Value Then
'Sheets("Auswahl").Range(Sheets("Auswahl").Cells(Target.Row, 5), Sheets(" _
Auswahl").Cells(Target.Row, 13)).Value = Sheets("DP").Range(Sheets("DP").Cells(intRow, 2), Sheets("DP").Cells(intRow, 10)).Value
Sheets("DP").Range(Sheets("DP").Cells(intRow, 2), Sheets("DP").Cells(intRow, 10) _
).Copy
Sheets("Auswahl").Cells(Target.Row, 5).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Auswahl").Cells(Target.Row, 5).PasteSpecial Paste:=xlPasteValues
End If
Next intRow
End If
End If
End Sub
Nun mein zweites Problem. Da ich über ein Dropdown Menü verschiedene Punkte auswählen kann und über VBA das auch erkannt wird hab ich das Problem das ich bei zb mehreren Zeilen ein und den selben Namen habe. So hab ich die Tabellen vorne Verbunden und nun hab ich zb 3 Zeilen und nur noch "1" Punkt fürs Dropdown menü. Er erkennt das auch richtig und kopiert aber leider nur die erste Zeile und nicht die anderen beiden Zeilen die dazu gehören würden. Hoffe ich konnte das richtig erklären.
Vielen Dank für eure Hilfe
Anzeige