Archiv
Ansicht:   
Suche   erweiterte Suche

Nachricht aus dem Archiv

fuchsi schrieb am 17.August.2010, 10:50:51 in der Kategorie pc.sw.office

Excel 2003 per VBA Änderungen in Folgetabellen übernehmen

Eigentlich brauchst Du nur diesen einen EVENT im DieseArbeitsmappe-Modul

Der Event verändert nun das nächste Sheet. Dadurch wird gleich wieder der Event aufgerufen, der nun automatisch das übernäschte Sheet ändert, solange es folgende Sheets gibt.



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
   Dim BasisName As String
   BasisName = \"KiGa_\"
   
   Dim Jahr As Integer
   Jahr = Val(Right$(Sh.Name, 4)) \' KiGa_2008, KiGa_2009 ....
    
   Dim QuellZelle As String
   QuellZelle = Target.Address
   
   Dim Wert As Double
   Wert = Target.Value
    
   If TabelleVorhanden(BasisName & CStr(Jahr + 1)) = True Then
       Sheets(BasisName & CStr(Jahr + 1)).Range(QuellZelle).Value = \"Anton\"
   End If
    
End Sub

Archiv
Ansicht:   
Suche   erweiterte Suche
Auf unserer Web-Seite werden Cookies eingesetzt, um diverse Funktionalitäten zu gewährleisten. Hier erfährst du alles zum Datenschutz