code (Spaltenbegrenzung)
14.06.2005 22:59:00
max
ich habe bei diesem code zum automatischem speichern eine frage ob jemand zur späten stunde noch die lust hat mir beim ändern behilflich zusein.
Im moment speichert der code die daten von zeile 1-35 und spalte 1-34.
Das klappt so auch prima. Mein problem ist wie ich den code dahingehend ändere das ich die daten von spalte 3-9 kopiere.
vielen dank schon mal im vorraus
mfG max
achübrigens Der code ist hier aus dem Forum leider weiß ich nicht mehr von wem, aber noch einmal herzlichen dank
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsEin As Worksheet, wsSpei As Worksheet
Dim gZe&, gSp%
gZe = Target.Row
gSp = Target.Column
If gSp < 35 And gZe < 34 Then 'hier müßte also gSp 3-9 stehen
Set wsEin = ActiveSheet
' Öffnen der "Speichermappe"
Set wsSpei = Workbooks.Open("P:\Servierschnitt\Übersicht Paletten\Jul. 20.6.-15.7.05\datenblatt.xls").Sheets(1)
' Addition
wsSpei.Cells(gZe, gSp) = wsSpei.Cells(gZe, gSp) _
+ wsEin.Cells(gZe, gSp)
' Schließen der "Speichermappe"
ActiveWorkbook.Close SaveChanges:=True
' Eingabe wird wieder gelöscht
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End Sub
Anzeige