Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Button Wert in Zellen schreiben???

Per Button Wert in Zellen schreiben?
12.11.2007 22:16:00
Peter
Hallo liebe Excellaner,
kann mir jemand beistehen und sagen, warum der nachfolgende Code nicht den gewünschten Erfolg bringt?
Private Sub CommandButton19_Click()
Sheets("WKKlasseBeginner").Activate
Dim c As Variant
For c = 85 To 16
If ActiveSheet.Cells(c, 1) "" Then
ActiveSheet.Cells(c, 42) = 10
End If
Next c
Vielen Dank
Peter S.

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

Betreff
Datum
Anwender
Anzeige
AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:25:00
Hajo_Zi
Hallo Peter,
welchen Erfolg erwartest Du?
Hast Du die Eigenschaft TakeFocusOnClick geändert?
Es fehlt End Sub
Auf Select usw. kann in VBA zu 99,9% verzichtet werden.

AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:30:52
Peter
Hallo Hajo,
der Erfolg sollte sein, dass ich mit einem Klick auf den Button in der Tabelle WKKlasseBeginner
in den Zeilen 16 bis 86 in der Spalte 42 den Wert 10 eintrage, vorausgesetzt der Wert in der Spalte 1 der entsprechenden Zeile ist größer 1.
Die Eigenschaft steht auf True
Gruß
Peter S.

AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:32:00
Hajo_Zi
Hallo Peter,
ob True habe ich nicht gefragt, ob Du Sie geändert hast?
Den Hinweis mit Select ast Du schon umgesetzt? Dann gibt es das Problem nicht.
Gruß Hajo

Anzeige
AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:39:00
Peter
Hallo Hajo,
nein ich habe die Eigenschaft von TakeFocusOnClick nicht geändert und ja die .Select_Zeile habe ich per ' deaktiviert
Gruß
Peter S.

AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:45:00
Hajo_Zi
Hallo Peter,
"die .Select_Zeile habe ich per ' deaktiviert" den nachfolgenden Code hast Du dann auch umgeschrieben?
Warum setzt Du meinen Vorschlag aus dem ersten Beitrag nicht um und ändest die Eignschaft von TakeFocusOnClick?
Gruß Hajo

AW: Per Button Wert in Zellen schreiben?
12.11.2007 22:57:00
Peter
Hallo Hajo,
habe die Eigenschaft geändert. Trotzdem keine 10 in den entsprechenden Zellen.
Aber vielleicht habe ich eine wichtige Tatsache vergessen; der Button ist auf einer UserForm, nicht in der Tabelle. Das End Sub ist natürlich vorhanden
Gruß
Peter S.

Anzeige
AW: Per Button Wert in Zellen schreiben?
12.11.2007 23:01:00
Hajo_Zi
Hallo Peter,
ich baue das nicht nach, da ein Nachbau meist anders aussieht als das Original. Man sollte im ersten Beitrag schon alles reölevaze erwähnen. Ich mache jetzt Feierabend.
Gruß Hajo

AW: Per Button Wert in Zellen schreiben?
12.11.2007 23:05:46
Peter
Hallo Hajo,
danke trotzdem und gute Nacht
Gruß
Peter S.

AW: Per Button Wert in Zellen schreiben?
12.11.2007 23:14:04
Daniel
Hi
schwer zu sagen, so ohne die Datei drumherum
probier mal das hier, das sollte eigentlich funktionieren, vorrausgesetzt, du hast dich beim Blattnamen nicht verschrieben.

Private Sub CommandButton19_Click()
Dim c As long
with Sheets("WKKlasseBeginner")
For c = 85 To 16
If .Cells(c, 1)  "" Then
.Cells(c, 42) = 10
End If
Next c
end with
End Sub


ne schnellere Möglichkeit ist auf jeden fall das hier:


Private Sub CommandButton19_Click()
with Sheets("WKKlasseBeginner").range("AP16:AP85")
.formular1c1 = "=if(rc1"""",10,"""")
.formula = .value
end with
End Sub


Gruß, Daniel

Anzeige
AW: Per Button Wert in Zellen schreiben?
13.11.2007 19:51:20
Peter
Hallo Daniel,
vielen Dank für Deine späte (Uhrzeit) Hilfe. Deine beiden Codes funktionieren bestens, der erste davon jedoch nur dann, wenn es heisst "for c = 16 to 85", die Reihenfolge von unten nach oben funktioniert nicht.
Die Geschwindigkeit beider Lösungen ist in der Praxis nicht voneinander zu unterscheiden; sicherlich hast Du in der Theorie Recht, denn das einmalige Schreiben einer Formel in einen Zellbereich ist bestimmt schneller, als 85 mal eine Sequenz zu wiederholen.
Noch Offen nur damit Du meine Antwort auch angezeigt bekommst.
Super Hilfe
Vielen Dank
Peter S.

Anzeige
AW: Per Button Wert in Zellen schreiben?
13.11.2007 22:43:19
Daniel
Hi
ja danke für die Rückmeldung.
jetzt sehe ich auch, warum deine Schleife nicht funktioniert:
Probier mal

For c = 85 to 16 Step -1


damit sollte es gehen.
Was die Geschwindigkeit angeht: bei 70 Zellen spielt das noch keine Rolle, aber wenns mal 1000 oder mehr Zellen werden, machen sich die Unterschiede im Code schon bemerkbar.
Gruß, Daniel

302 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

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
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4