Makro nach werteingabe ausführen

Hallo
Problem
Ich möchte das ein Makro automatisch ausgeführt wird
welches nach der eingabe des wertes "1" in Zelle "B5"
und nach der eingabe Irgend eines Wertes in "F5"
Es sollten also beide bedingungen erfüllt sein.
Das Makro das ausgefürt werden soll lautet.


Sub Statistik()
Range("S5:S16").Select
Selection.Copy
Range("T5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim freieZ As Long
With Sheets("Statistik")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Eingabefeld").[c5:k5].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c6:k6].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c7:k7].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c8:k8].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c9:k9].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c10:k10].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c11:k11].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c12:k12].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c13:k13].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c14:k14].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c15:k15].Copy Destination:=.Cells(freieZ, 1)
freieZ = freieZ + 1
Sheets("Eingabefeld").[c16:k16].Copy Destination:=.Cells(freieZ, 1)
End With
Sheets("Statistik").Select
Columns("J:J").Select
Selection.Copy
Columns("K:K").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub löschenStatistik() ' löschenStatistik Makro ' Makro am 21.06.2006 von Stefan aufgezeichnet ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("Statistik").Select ActiveSheet.Unprotect Columns("A:I").Select Range("I1").Activate Selection.Clear Columns("K:K").Select Selection.ClearContents Range("M2").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" And Target.Value = 1 Or _ Target.Address = "$F$5" And Target.Value <> "" Then ' hier dein Makro einfügen !!! End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Range("B5") = 1 And Range("F5") <> "" Then With Sheets("Statistik") .Unprotect .Range("I1").Clear .Columns("K:K").ClearContents .Columns("A:I").ClearContents .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro nach werteingabe ausführen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread