Problem mit Spalten und Zeileneinstellung

Bild

Betrifft: Problem mit Spalten und Zeileneinstellung
von: Josef Thelen
Geschrieben am: 20.04.2005 00:52:09
Guten Abend,
Bitte um Hilfe. Habe ein Problem mit der Einstellung von Spalten und Zeilen, im
meinem Modul.
Ich möchte, das die erste kopierte und transponierte Zeile in Tabelle2 in "B4"
beginnt und den nächsten kopierten Satz in die nächste freie Zeile, also in "B5"
schreibt.
https://www.herber.de/bbs/user/21390.xls

Vielen Dank schon mal
Gruß, Josef

Bild

Betrifft: AW: Problem mit Spalten und Zeileneinstellung
von: Ralf (Schwabenland)
Geschrieben am: 20.04.2005 08:42:17
Hallo Josef,
so:

Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
  With Worksheets("Tabelle2")
    intCol = 1
      If IsEmpty(.Cells(4, 2)) Then
        intRow = 4
      Else
        intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
      End If
  For Each rngAct In Range("G13,G15,G16,C13").Cells
    intCol = intCol + 1
    rngAct.Copy .Cells(intRow, intCol)
  Next rngAct
  End With
Application.CutCopyMode = False
End Sub

Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: Problem mit Spalten und Zeileneinstellung
von: Josef Thelen
Geschrieben am: 20.04.2005 10:56:29
Hallo Ralf,
genau das wars, echt Super.
Vielen Dank
Gruß, Josef
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Problem mit Spalten und Zeileneinstellung"