Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Problem mit Spalten und Zeileneinstellung"
Verschnittproblem mit Solver lösen Vorkommen von Zahlenreihen in Spalten
Funktion ANZAHL2 ohne ausgeblendete Spalten Spaltenbreite anpassen
Spalten einer Mehrbereichsauswahl ausblenden. Spaltennamen bestimmen
Spalten/Zeilen aus- und einblenden Zeilen und Spalten über ein Drehfeld ein- und ausblenden
In einem Dialog ausgewählte Spalten drucken Spalten bedingt summieren und Zellen formatieren