transponieren mit combobox
01.07.2008 12:04:56
hmkotu@lycos.de
ich hab da ein kleines Problem. ich kopiere derzeit über eine Userform einzelne Zellen in ein anderes
Tabellenblatt. Das klappt mit dem folgenden Macro super
Dim zeil%, mzeil%, ustart%, uende%, farbi, etr%, mzei%
Private Sub CommandButton1_Click()
zeil = Me.ComboBox1.ListIndex + 2
Range (Cells(zeil, 7) + Cells(zeil, 11))
Sheets("Einzeldaten").Activate
Cells(8, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Da ich mehrere Zeilen habe die auch transponiert werden müssen ist es recht mühsam für jede
einzelne zelle ein Macro zu schreiben. Bin zufällig auf den folgenden Macro gestoßen.
Sub transponieren()
Dim rngZelle As Range, rngBereich As Range
Dim intZ As Integer, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Stammdaten")
Set ws2 = Worksheets("Einzeldaten")
Set rngBereich = ws1.Range("A1:C1")
For Each rngZelle In rngBereich
intZ = intZ + 1
ws2.Cells(intZ, 2).Value = rngZelle
Next
End Sub
Leider habe ich es nicht hinbekommen diese auf meine bedürfnisse umzustricken.
Die Zeile bei mir ist variabel bzw. wird vom Combobox1. ermittelt.
zeil = Me.Combobox1.listindex + 2
Die zu markierenden Zellen sind von (zeil+7) : (zeil+11)
Danke im Voraus
Gruß
Hamza