Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife integer

Forumthread: Schleife integer

Schleife integer
28.01.2009 18:01:18
Michael
Hallo!
Wenn in der Zelle E3:E40 ein Wert auftaucht der nicht einer Zahl entspricht, soll Ändern erscheinen.
Gruß Michael
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife integer
28.01.2009 18:05:00
Hajo_Zi
Hallo Michael,
schreibe in F3 =WENN(ISTZAHL(E3);"";"Ändern") und ziehe es runter.

AW: Schleife integer
28.01.2009 18:16:00
Michael
Hallo!
Die Idee ist gut und wie funktioniert die Schleife dazu?
Gruß Michael
AW: Schleife integer
28.01.2009 18:20:00
Hajo_Zi
Hallo Michael,
warum Schleife ziehe die Formel runter und es wird Dir der Status für jede Zelle in Spalte E angezeigt.
Gruß Hajo
Anzeige
AW: Schleife integer
28.01.2009 18:32:09
Michael
Hey!
Ich wollte mich ein klein wenig mit VBA beschäftigen, daher die Frage mit der Schleife. Ich bekomme sie nähmich nicht hin. Wie auch, bin Anfänger.
Gruß Michael
hier ein Beispiel
28.01.2009 18:23:00
Matthias
Hallo
in die Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:E40")) Is Nothing Then
If Not IsNumeric(Target) Then Target = "Ändern!"
End If
End Sub



Beispiel:
https://www.herber.de/bbs/user/58872.xls

Gruß Matthias
Anzeige
AW: hier ein Beispiel
28.01.2009 18:27:00
Hajo_Zi
Hallo Matthias,
sollte die Reaktion auf die Eingabe nicht abgeschaltet werden?
Gruß Hajo
sicherer ist es auf jeden Fall
28.01.2009 18:41:47
Matthias
Hallo Hajo
Ich versteh Dich nicht ganz.
Er will doch, wenn keine Zahl in der Zelle steht das Wort "Ändern" in die Zelle schreiben.
Oder meinst Du Application.EnableEvents

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:E40")) Is Nothing Then
Application.EnableEvents = False
If Not IsNumeric(Target) Then Target = "Ändern!"
Application.EnableEvents = True
End If
End Sub


Aslo ich habe das in XL2000 getestet da brauchte ich das nicht. Es funzte auch so.
Und getestet habe ich vorher auch:
MsgBox Application.EnableEvents gibt WAHR zurück
ich glaubte erst ab XL2007 löst das Worksheet_Change-Ereignis auch eine Neuberechnung(Calculate) aus
oder ist das in Office2003 auch schon so ?
oder verstehe ich was ganz falsch ?
Gruß Matthias

Anzeige
AW: sicherer ist es auf jeden Fall
28.01.2009 18:49:00
Michael
Hallo!
Das ist geil! Hat nur einen Haken, wenn in dem Feld 28.63 steht, gibt er mir nicht Ändern zurück. Warum?
28,63 ist eine Zahl(integer) 28.63 nicht oder?
Gruß Michael
AW: sicherer ist es auf jeden Fall
28.01.2009 19:51:00
Jens
Hi,
"...28,63 ist eine Zahl(integer) ..."
Eine Zahl, ja, Integer, nein, Integer sind Ganzzahlen. Steht übrigens auch in der Hilfe.
mfg Jens
Anzeige
AW: sicherer ist es auf jeden Fall
28.01.2009 18:50:54
Hajo_Zi
Hallo Matthias,
Du hast es korrekt gesehen ich meinte "Oder meinst Du Application.EnableEvents"
Erschreibt einen text in die Zelle Change wird ausgelöst Du ersetzt den Text durch Ändern Change wird ausgelöst usw.
Gruß Hajo
Anzeige
;

Forumthreads zu verwandten Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
eine Schleife in Webabfrage
mehmet

Hallo Forum,
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
29.08.2008 09:30:05
Thread-ID: 1005675
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Schleife einbauen und variabler Tabellenname
Markus

Hallo zusammen,
nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
16.10.2008 19:25:00
Thread-ID: 1016959
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige
Wie kann ich hier eine Schleife ...
Thomas

Hi Profis,
Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und...
02.02.2009 11:29:00
Thread-ID: 1046127
9 Beiträge
Endlos-Schleife eines Makros
Hopper

Hi,
habe foglendes Problem:
Will nachdem ich ein Tabellenblatt geöffnet habe, dass in einem anderen Tabellenblatt ein Makro gestartet wird, das über eine Verlinkung Auswirkungen auf das geöffnete Tabellenblatt hat.
Nutze folgenden Code:
Private Sub worksheet_activate() [im Tab...
02.02.2009 14:20:00
Thread-ID: 1046240
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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