Ereignis: nicht zusammenhängenden Bereich kopieren
19.01.2006 20:57:18
Peter
ich „pack“ das nicht allein und würde mich über Hilfe sehr freuen..
Danke im voraus
Peter
Ich habe folgendes Problem:
Wenn in die aktuelle Monatstabelle in eine Spalte die größer als 7 ist,
ein Eintrag erfolgt, möchte ich per Ereignis:
- den Zeilenbereich von Spalte 1-6 und
- die Spalten der aktiven Spalte mit den rechts daneben befindlichen 2 Spalteneinträgen
unter den letzten Eintrag in der Tabelle „Gesamt“ einfügen.
- Wenn möglich sollten der Eintrag in der Tabelle gesamt so erfolgen, dass
Die 9 Spalteneinträge nebeneinanderliegen.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim intMonat As Integer
Dim intJahr As Integer
Dim ShQ
Dim ShZ
Dim LRow
intMonat = Month(Date)
intJahr = Year(Date)
Set ShZ = Sheets("Gesamt")
LRow = ShZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sh.Name = Format(DateSerial(intJahr, intMonat, 1), "mmm YYYY") Then
'If Sh.Target.Row > 8 And Sh.Target.Column > 7 Then
' ShZ.Range(ShZ.Cells(LRow, 1), ShZ.Cells(LRow, 6)) = _
' Sh.Range(Sh.Cells(Target.Row, 1), Sh.Cells(Target.Row, 6))
'End If
Else
Exit Sub
End If
End Sub
Anzeige