Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zahl automatisch in eine Zelle schreiben

zahl automatisch in eine Zelle schreiben
sebibasti
Hallo liebe Excel-Freunde,
Aus einem Excelarbeitsblatt sollen Daten in ein anderes Excel-Arbeitsblatt per VBA kopiert werden und zwar immer in die übernächste freie Zeile.
Das funktioniert auch einwandfrei.
Nun zu meinem Problem:
In Spalte "A" der Zeile in die der Text kopiert wurde soll eine "2" geschrieben werden.
Hier mein Code (Ohne die "2"):
With Worksheets("History")
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2
ActiveSheet.Range("B10:N14").Copy Destination:=.Cells(lngNextRow, 2)
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Range("B19:N23").Copy Destination:=.Cells(lngNextRow, 2)
End With
Kann mit jemand bei der Lösung meines Problems behilflich sein?
Besten Dank!,
Basti

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: zahl automatisch in eine Zelle schreiben
01.03.2010 12:53:41
Ramses
Hallo
Ein wenig lesen, überlegen und probieren.Schon haut das hin
Hier mein Code (Ohne die "2"):
With Worksheets("History")
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2
ActiveSheet.Range("B10:N14").Copy Destination:=.Cells(lngNextRow, 2)
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range(.cells(lngNextRow,1),.cells(lngNextRow+4,1)) = "A"
ActiveSheet.Range("B19:N23").Copy Destination:=.Cells(lngNextRow, 2)
End With
Gruss Rainer
AW: zahl automatisch in eine Zelle schreiben
01.03.2010 13:18:25
sebibasti
Perfekt, vielen Dank Rainer!
Anzeige

359 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige