Nachfrage wg. VBA(Speziell Stefan Br. gerichtet)
13.11.2006 15:01:55
HannaG.
Hallo,
die u.g. Formel gefällt mir so gut, daß ich sie erweitern möchte(und vergeblich versucht habe bereits).
Möchte zusätzlich zu dem Kopiervorgang in die 2. Zeile , geknüpft an eine Änderung in "D", ein weiteres Macro hinzufügen, diemal Änderungen in Spalte "E", gesamte betroffene Zeile in die 3. Zeile kopiert.
Einfaches hinzukopieren und ersetzen von D und 2 durch E und 3 war nicht sehr erfolgreich. Blickt hier jemand durch(natürlich auch durch meine Formulierung des Problemes..)
Dies steht unter "Tabelle2(Code)
Weiter unten Macro1
Dim myArray(540)
Dim bolTimer As Boolean
Sub Show_change()
For i = 7 To 540
If Range("D" & i).Value myArray(i - 7) Then
If Not (Range("D" & i).Value = 0) And Not (Range("D" & i).Value = Chr(133)) Then
Application.ScreenUpdating = False
Rows(i).Copy
Rows(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("D" & i).Select
Call sndPlaySound32("c:\signal", 1)
Application.ScreenUpdating = True
End If
myArray(i - 7) = Range("D" & i)
End If
Next i
Call Timer
End Sub
Sub Timer()
Dim NextTime As Date
If Not bolTimer Then Exit Sub
NextTime = Now + TimeValue("00:00:05")
Application.OnTime NextTime, "Tabelle2.Show_Change"
End Sub
Sub initialize_array()
For i = 7 To 540
myArray(i - 7) = Range("D" & i)
Next i
End Sub
Sub Start_Ueberwachung()
initialize_array
bolTimer = True
Timer
End Sub
Sub Stopp_Ueberwachung()
bolTimer = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Hier Macro1
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/31/2006 by Stefan Brandstetter
'
'
Rows("12:12").Select
Selection.Copy
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D12").Select
Application.CutCopyMode = False
End Sub
Anzeige