Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

porozedur aus Marco aufrufen

porozedur aus Marco aufrufen
09.09.2003 13:20:16
franzel
Hallo Leute
schön wieder hier zu sein habe ein Problem, möchte aus einem Macro
folgende Prozedur starten "Sub Worksheet(ByVal Target As Excel.Range)"

mit call funktioniert das nicht kann mir jemand sagen wie ich das bewerkstelligen kann

gruß franzel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: porozedur aus Marco aufrufen
09.09.2003 13:50:32
GerdW
"Sub Worksheet(ByVal Target As Excel.Range)"

sowas gibts nicht!

Gerd
AW: porozedur aus Marco aufrufen
09.09.2003 13:54:20
Franzel
Hallo Gerd,

soory so sieht es aus "

Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
ich möchte diese funktion aus einem Macro raus aufrufen ??
zur verdeutlichung hier der gesamte code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("A10:A27")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
Range("B5") = Now
Zeile = Target.Row     ' Zuweisung der Zeilen-Variable
Spalte = Target.Column ' Zuweisung der Spalten-Variable
' Prüfung, ob Änderung in Spalte 1
If Spalte = 1 Then
' wenn kein Datum in A&Zeile, dann
If Not IsDate(Range("F" & Zeile)) Then
With Range("F" & Zeile)
' setze hier das akt. Datum
.Value = Now
' im Format ??
'.NumberFormat = "mm/yy"
End With
End If
End If
End Sub

Anzeige
AW: porozedur aus Marco aufrufen
09.09.2003 13:55:19
Franzel
Hallo Gerd,

soory so sieht es aus "

Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
ich möchte diese funktion aus einem Macro raus aufrufen ??
zur verdeutlichung hier der gesamte code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("A10:A27")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
Range("B5") = Now
Zeile = Target.Row     ' Zuweisung der Zeilen-Variable
Spalte = Target.Column ' Zuweisung der Spalten-Variable
' Prüfung, ob Änderung in Spalte 1
If Spalte = 1 Then
' wenn kein Datum in A&Zeile, dann
If Not IsDate(Range("F" & Zeile)) Then
With Range("F" & Zeile)
' setze hier das akt. Datum
.Value = Now
' im Format ??
'.NumberFormat = "mm/yy"
End With
End If
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige