Code modifizieren - ich habe keine Ahnung
28.12.2005 19:39:27
seillak
ich habe konnis thread aus einem anderen forum aufgefischt. ist zwar crossposting, aber vielleicht könnt ihr mal drüber wegsehen!? der (konni = konrad) arme leidet.
nachstehend der code, der überarbeitet werden soll:
Option Explicit
Sub MehrFachAuswahl()
Dim strQ As Variant, strZ As Variant, ii As Integer
Dim intZeQ As Integer, intZeZ As Integer, rngLast As Range
strQ = Split("C") ' Vorgabe der Quellspalten
strZ = Split("D") ' Vorgabe der Zielspalten
intZeQ = ActiveCell.Row ' Zeilennummer der aktiven Zelle
With Workbooks("Test03 Nachtragstabelle.xls").Worksheets("Nachtragsübersicht") ' Vorgabe der Zieltabelle
' erste freie Zeile in Zieltabelle
Set rngLast = .Cells.Find("*", .Cells(1, 1), , , xlByRows, xlPrevious)
If rngLast Is Nothing Then intZeZ = 1 Else intZeZ = rngLast.Row + 1
' Kopien erstellen
For ii = LBound(strQ) To UBound(strQ)
Cells(intZeQ, Range(strQ(ii) & "1").Column).Copy _
Destination:=.Cells(intZeZ, Range(strZ(ii) & "1").Column)
Next ii
End With
End Sub
Hallo Freunde,
oben stehender Code (stammt nicht von mir) bewirkt, dass nach markieren einer Zeile in Tabelle 2 die ausgewählten Zellinhalte in die nächste leere Zeile in Tabelle 1 kopiert werden. Dies funktioniert prima. - Nun möchte ich auf gleichem Weg aber auch in nicht leere Zeilen und dort in verschiedene Spalten der Tabelle 1 kopieren. Wie muss der Code nun lauten?
Bin für jede Unterstützung dankbar, da ich von VBA leider keine Ahnung habe.
Viele Grüsse
Konrad
also, seid bitte behilflich und strengt euch an
schüssli ;-)
seillak