ich habe eine Frage.
Mit folgenden Code übertrage ich Daten von einem Tabellenblatt(Meldebogen) in die nächste Zeile eines anderen Tabellenblatt (Übersicht)
Jetzt hätte ich gerne
1. nur den Text übernommen
2. in der neuen geschriebenen Zeile in den Zellen von Spalte A-O einen einfachen Rahmen.
3. in Zeile A eine fortlaufende Nummer eingegeben
Ich hatte folgenden Code für die laufende Nummer, aber das klappt irgendwie nicht
(Cells(7, 1).Value = 1
Range(Cells(7, 1), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 1)).DataSeries
End Sub )
Kann mir jemand dabei helfen? Danke für die Hilfe
Gruß Ulli
Public Sub Übertragen()
' Übertragen Makro
Dim loLetzte As Long
'Dim lngEND As Long, lngRow As Long
Dim Zeile As Long, Spalte As Long ', Spaltenzähler As Long
With Sheets("Übersicht")
loLetzte = .Range("D:D").Cells.Find("*", searchdirection:=xlPrevious).Row + 1
End With
With Sheets("Meldebogen")
Sheets("Übersicht").Cells(loLetzte, 1) = .Range("I4")
.Range("Datum").Copy Sheets("Übersicht").Cells(loLetzte, 2)
.Range("Nachname").Copy Sheets("Übersicht").Cells(loLetzte, 4)
.Range("Vorname").Copy Sheets("Übersicht").Cells(loLetzte, 5)
End With
End Sub