Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ü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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
AW: Überwachungsmakro
29.11.2008 20:27:00
Kurt
Hallo Daniel,
besten Dank. Klappt ziemlich gut. Klasse!
Grüße,
Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige