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
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle blinken, nach Eingabe aus

Zelle blinken, nach Eingabe aus
07.02.2006 22:36:09
Uwe
Hi zusammen
Folgendes: Ein Makro markiert Zelle C1207, Makroende. Nun soll diese Zelle blinken, rot gelb, bis eine Zahl eingetragen wird. Nach diesem Eintrag soll das Tabellenblatt geschützt werden. Hab keine Ahnung, wie´s geht.
Nochen Problem: Kann man Kommentare auch links der aktiven Zelle erscheinen lassen?
Vielen Dank im Vorraus
+Gruss Uwe

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle blinken, nach Eingabe aus
07.02.2006 23:51:52
Josef
Hallo Uwe!
Viel Spass!
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
  ByVal dwMilliseconds As Long)

Function BlinkiBlinki(Zelle As Range)
Dim shp As Shape

With Zelle
  .Parent.Activate
  .Select
  
  Set shp = ActiveSheet.Shapes.AddLine(.Left, .Top, .Left, .Top + .Height)
  shp.Name = "L_l"
  shp.Line.ForeColor.SchemeColor = 10
  shp.Line.Weight = 2
  
  Set shp = ActiveSheet.Shapes.AddLine(.Left + .Width, .Top, .Left + .Width, .Top + .Height)
  shp.Name = "L_r"
  shp.Line.ForeColor.SchemeColor = 10
  shp.Line.Weight = 2
  
  Set shp = ActiveSheet.Shapes.AddLine(.Left, .Top, .Left + .Width, .Top)
  shp.Name = "L_t"
  shp.Line.ForeColor.SchemeColor = 10
  shp.Line.Weight = 2
  
  Set shp = ActiveSheet.Shapes.AddLine(.Left, .Top + .Height, .Left + .Width, .Top + .Height)
  shp.Name = "L_b"
  shp.Line.ForeColor.SchemeColor = 10
  shp.Line.Weight = 2
  
End With

Set shp = ActiveSheet.Shapes.Range(Array("L_l", "L_r", "L_t", "L_b")).Group

Do
  
  shp.Line.ForeColor.SchemeColor = IIf(shp.Line.ForeColor.SchemeColor = 10, 5, 10)
  
  If Zelle <> "" Then
    shp.Delete
    Exit Do
  End If
  DoEvents
  Sleep 750
  
Loop

Set shp = Nothing

End Function


Sub test()
BlinkiBlinki Sheets("Tabelle3").Range("F25")
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zelle blinken, nach Eingabe aus
08.02.2006 20:02:50
Uwe
Hi Sepp
Erst mal Danke für deine Mühe. Das hier übersteigt mein Begriffsvermögen.Sorry
Mir reicht im Prinzip ein Makro, welches C1207 blinken läßt, und nach einem Eintrag
nicht mehr blinkt.Dieses Makto will ich mit Application.....durch ein anderes Makro starten.Vielleicht hast du ne einfachere Lösung
Dank im Vorraus Uwe
AW: Zelle blinken, nach Eingabe aus
08.02.2006 21:44:40
Josef
Hallo Uwe!
Genau das macht doch meine Funktion!
Kopiere sie einfach in ein Modul und rufe sie wie im Beispiel auf!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zelle blinken, nach Eingabe aus
08.02.2006 22:42:14
Uwe
Hi Sepp, funzt nicht
Set shp = ActiveSheet.Shapes.AddLine(.Left, .Top, .Left, .Top + .Height)
Zeigt hier: Anwendung-oder objektdefinierter Fehler

Sub test()
BlinkiBlinki Sheets("HauptProgramm").Range("C2407")
End Sub

Hab ich so geändert
sorry, dass ich nochmal nerve
AW: Zelle blinken, nach Eingabe aus
08.02.2006 22:46:28
Josef
Hallo Uwe!
Die Tabelle ist geschützt!
Dan musst du den Blattschutz vorher aufheben!

Sub test()
Sheets("HauptProgramm").Unprotect ' ggf. Password:="deinPasswort"
BlinkiBlinki Sheets("HauptProgramm").Range("C2407")
Sheets("HauptProgramm").Protect ' ggf. Password:="deinPasswort"
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zelle blinken, nach Eingabe aus
09.02.2006 00:16:37
Uwe
Hi Sepp, du bist sehr gut.so klappt es prima
Haben uns trotzdem missverstanden, ich meinte Zellhintergrund, nicht den Rahmen.
war nicht klar formuliert von mir.sorry.
Trinke mein nächstes Bier in jeden Fall auf dein Wohl.
Kannste das noch ändern.
Herzlichen Dank
AW: Zelle blinken, nach Eingabe aus
09.02.2006 00:57:50
Josef
Hallo Uwe!
Überredet;-))
Mir gefällt aber trozdem der Rahmen besser;-)
Nimm diese Funktion. Aufruf wie zuvor!
Function BlinkiBlinki(Zelle As Range)
Dim oldColor As Integer

With Zelle
  .Parent.Activate
  .Select
  oldColor = .Interior.ColorIndex
  Do
    With .Interior
      .ColorIndex = IIf(.ColorIndex = 6, 3, 6)
    End With
    DoEvents
    Sleep 750
  Loop While Len(.Value) = 0
  .Interior.ColorIndex = oldColor
End With

End Function


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zelle blinken, nach Eingabe aus
09.02.2006 21:57:44
Uwe
Hi Sepp
trinke kein Bier , sauff nen Ganzen Kasten auf dein Wohl.Genau so soll es sein.
Nochmal herzlichen Dank und weiterhin ein so gutes Händchen.
Gruß Uwe
AW: Zelle blinken, nach Eingabe aus
09.02.2006 16:12:43
Thomas
Hallo Uwe,
wenn Du eine professionelle, resourcenschonende Lösung benötigst, kann ich Dir das Programm 'rtdBlinker' (auf meiner Webseite) empfehlen. Man kann alles als Formel eingeben und funktioniert auch daher in geschützten Tabellen. Es BLINKT perfekt :-)
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer
Anzeige

300 Forumthreads zu ähnlichen Themen

Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Anzeige
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Abgleich von Zellenbereichen in 2 versch.Arbeitsbl
Zellenbereichen

Hallo Excel-Anwender,
als Anlage habe ich eine Excel-Datei mit 2.Arbeitsblättern beigefügt. Das 1.Arbeitsblatt heißt Ber.Blatt, das 2. Tabelle 2009. Auf dem 1.Arbeitsblatt ist in Zelle B3 eine Vergütungsbezeichnung angegeben. Im 2.Arbeitsblatt sind in der Spalte A5-A28 ebenfalls Vergütungsb...
21.11.2008 11:54:00
Thread-ID: 1026680
4 Beiträge
Anzeige
Bestimte Zeichen von Zelleninhalt auswählen
Zelleninhalt

Hallo Excelperten,
ich lese via VBA zwei Tabellen ein und erstelle daraus eine Liste. Ich überprüfe dabei, ob es bei den aktuellen Tabellen Änderungen im Vergleich zur alten Liste gibt und übertrage diese Änderungen. Dazu lese ich den Zelleninhalt (eine Product-ID) aus den einzelnen Zeilen...
08.12.2008 11:07:00
Thread-ID: 1031015
3 Beiträge
verketten unter nutzung von zelleninhalt füllen
zelleninhalt

hallo,
ich stelle derzeit in einer Notenliste die Namen der Schüler zusammen mit dem befehl:
=VERKETTEN('GT-M2 07'!C7&", "&'GT-M2 07'!D7)
wobei GT-M2 07 sich auf eine Namensliste in einem anderen Tabellenblatt bezieht. Dort sind Vor- und Zuname in einzelnen Zellen eingetrage...
21.01.2009 09:00:46
Thread-ID: 1042040
3 Beiträge
Beträge einlesen abhängig von Zellenkombination
Zellenkombination

Hallo Excelfreaks
steht vor folgendem Problem
Ausgangslage: Budgetauswertung, aufgebaut in Spalten Kostenstelle/Konto/€-Wert.
Die Kostenstellen/Kontenkombinationen finden sich in der monatlich erstellen Budgetplanwerten und Istkosten wieder.
In eine Budgetauswertung möchte ich f...
28.01.2009 17:57:00
Thread-ID: 1044655
2 Beiträge
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Zelle nach eingabe schützen
Andre

Hallo!!
Ich möchte gern, daß wenn ich in einer Zelle eine Eingabe tätige diese Zelle mit einem Passwort gegen Änderung gesichert wird.
Kann mir da jemand helfen?
Mit freundlichen Grüßen
Andre
05.02.2009 13:55:26
Thread-ID: 1047380
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
3
3
12
2
2
1
2
2
1
6
8
3
6
9
4
8
8
4
10
6
2
6
1