Überwachungsmakro

Forumthread: Überwachungsmakro

Überwachungsmakro

29.11.2008 11:37:14

Kurt

Hallo Forum!
ich möchte mit einer Art "Überwachungsmakro" folgendes in einer Excel-Tabelle erreichen.
Wenn der Status auf "Geschlossen" gesetzt wird, soll das Makro prüfen, ob in der Zelle unter Ergebnis ein Text steht. Steht dort kein Text soll ein Input-Window aufgehen, welches den Benutzer zum eintragen eines Textes (Antwort) zwingt. Trägt der Benutzer keinen Text ein, wird der Status-Wert automatisch auf "Offen" zurück gesetzt.
Ich werde mich weiter an einem solchem makro versuchen. Sollte jemand eine gute Idee haben, dann würde ich mich freuen.


Nr.	Text	Status            Ergebnis
1	blblaaa	Offen
2	blblaaa	Geschlossen	Bermerkung blabla

Viele Grüße,
Kurt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Probiere es mal so!

29.11.2008 12:08:00

Backowe

Hi Kurt,
Code ins Tabellenblatt!

VBA-Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Text As String
If Not Intersect(Target, Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
  If InStr(LCase(Target), "geschlossen") > 0 Then
    If Target.Offset(-1, 1) = "" Then
      Text = InputBox("Bitte Text eingeben!", "Texteingabe")
        If Text = "" Then
          Target = "Offen"
          Target.Offset(0, 1) = ""
        Else
          Target.Offset(0, 1) = Text
        End If
    End If
  End If
End If
End Sub
Gruß Jürgen

AW: Überwachungsmakro

Daniel

Hi
könnte als Makro so aussehen:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim spErg As Long
spErg = WorksheetFunction.Match("Ergebnis", Rows(1), 0)
Dim Antwort As String
Dim Zelle As Range
For Each Zelle In Target
If Cells(1, Zelle.Column) = "Status" Then
If Trim(LCase(Zelle.Value)) = "geschlossen" Then
If Cells(Zelle.Row, spErg) = "" Then
Antwort = InputBox("Ergenbnis fehlt, bitte eintragen.")
Select Case Antwort
Case ""
Zelle.Value = "Offen"
Case Else
Cells(Zelle.Row, spErg) = Antwort
End Select
End If
End If
End If
Next
End Sub


Private Sub Worksheet_Sele
die Spaltenbezeichnungen "Ergebnis" und "Status" müssen in Zeile 1 vorhanden sein.
in welcher Spalte sie stehen, spielt keine Rolle, das ermittelt das Makro selbstständig
Gruß, Daniel

AW: Überwachungsmakro

Kurt

Hallo Daniel,
besten Dank. Klappt ziemlich gut. Klasse!
Grüße,
Kurt

AW: Überwachungsmakro

29.11.2008 12:13:11

Daniel

Hi
könnte als Makro so aussehen:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim spErg As Long
spErg = WorksheetFunction.Match("Ergebnis", Rows(1), 0)
Dim Antwort As String
Dim Zelle As Range
For Each Zelle In Target
If Cells(1, Zelle.Column) = "Status" Then
If Trim(LCase(Zelle.Value)) = "geschlossen" Then
If Cells(Zelle.Row, spErg) = "" Then
Antwort = InputBox("Ergenbnis fehlt, bitte eintragen.")
Select Case Antwort
Case ""
Zelle.Value = "Offen"
Case Else
Cells(Zelle.Row, spErg) = Antwort
End Select
End If
End If
End If
Next
End Sub


Private Sub Worksheet_Sele
die Spaltenbezeichnungen "Ergebnis" und "Status" müssen in Zeile 1 vorhanden sein.
in welcher Spalte sie stehen, spielt keine Rolle, das ermittelt das Makro selbstständig
Gruß, Daniel

AW: Überwachungsmakro

29.11.2008 20:27:00

Kurt

Hallo Daniel,
besten Dank. Klappt ziemlich gut. Klasse!
Grüße,
Kurt

Beliebteste Forumthreads (12 Monate)

Forumthread: Überwachungsmakro

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Überwachungsmakro

Forumthread: Überwachungsmakro

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread