Code anpassen
03.02.2003 21:53:54
Jens
Den nachfolgenden Code wollte ich so ändern das beim speichern erst ab der 2. Spalte geschrieben wird.
Kurze erklärung zum Code: aus der TB werden die Werte der Spalten 2 bis 5der ausgewählten Zeile in TB"Speicher"in die erste freie Zeile in der kein Eintrag in Spalte 2 ist geschrieben.weiter mit nächster Zeile aus TB...... .
Wer kann helfen
Danke im voraus Jens
Sub MehrFachAuswahl()
Application.ScreenUpdating = False
Zellen_verbinden_aufheben
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("Speicher")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End If
For Each rngAct In Range(Cells(2, 1), Cells(Range("A11").End(xlDown).Row, 5)).Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
Zellen_verbinden
Application.ScreenUpdating = True
End Sub