Hallo Franc (fcs)
22.09.2007 08:44:35
Dieter
nachdem Du mir zu meiner Frage "Daten per Doppelklick in separate Mappe" vom 13.09.07 so sehr helfen konntest, habe ich noch zwei (hoffentlich kleine) Probleme:
- ist es möglich, daß der Doppelklick nur auf der ersten Spalte einer Zeile ausgeführt wird. Momentan kann ich in jede Spalte doppelklicken und das Makro wird ausgeführt
- ist es möglich, auch Kommentare einer Zelle mitzukopieren.
Würde mich wirklich sehr freuen, wenn Du mir da noch weiterhelfen könntest !
Nochmal herzlichen Dank und Grüsse
Dieter
P.S. : hier nochmal das Makro:
Sub Ausgabe(wksQuelle As Worksheet, wksZiel As Worksheet, SpalteZiel%, ByVal ZeileQuelle%)
'Trägt Daten der jeweiligen Person in wksZiel ein
Dim Zelle As Range, iI%
'Startzeile in Zieltabelle
Const lngZeile As Long = 2
'StartSpalte in Quelle
Const iSpalte As Integer = 1
'Anzahl Spalten aus Quelle, die eingefügt werden sollen
Const iSpalten As Integer = 8
With wksZiel
If ZeileQuelle > 0 Then
'Werte übertragen
.Range(.Cells(lngZeile, SpalteZiel), .Cells(lngZeile + iSpalten - 1, SpalteZiel)) = _
WorksheetFunction.Transpose(wksQuelle.Range(wksQuelle.Cells(ZeileQuelle, iSpalte), _
wksQuelle.Cells(ZeileQuelle, iSpalte + iSpalten - 1)))
'Einzelne Zell-Formate übertragen
For iI = 1 To iSpalten
With .Cells(lngZeile, SpalteZiel).Offset(iI - 1, 0)
'Zellhintergrundfarbe
.Interior.ColorIndex = wksQuelle.Cells(ZeileQuelle, _
iSpalte).Offset(0, iI - 1).Interior.ColorIndex
'Zellschriftfarbe
.Font.ColorIndex = wksQuelle.Cells(ZeileQuelle, _
iSpalte).Offset(0, iI - 1).Font.ColorIndex
End With
Next
Else
'Aktionen wenn keine Nr. zur Informationen vorhanden
With .Range(.Cells(lngZeile, SpalteZiel), _
.Cells(lngZeile + iSpalten - 1, SpalteZiel))
'Inhalte im Bereich löschen,
.ClearContents
'Zellhintergrundfarbe auf ohne zurücksetzen
.Interior.ColorIndex = xlColorIndexNone
'Schriftfarbe in Zelle auf automatisch zurücksetzen
.Font.ColorIndex = xlAutomatic
End With
End If
End With
Set wksQuelle = Nothing
Set wksZiel = Nothing
Set Zelle = Nothing
End Sub