Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife erstellen Wie

Schleife erstellen Wie
walli
Guten Aben Fachfrauen u. Männer,
wie kann ich hiermit eine Schleife erstellen.
Wenn ich dies ausführe, muß ich jedesmal auf den Button drücken, sonst
klappt es soweit. 
Private Sub CommandButton29_Click()
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
so geht es leider nicht:
Dim i As Long
With ActiveSheet
For i = 12 To .Cells(.Rows.Count, 9).End(xlUp).Row
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next
End With
End Sub
guß walli

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife erstellen Wie
18.11.2009 17:12:18
Björn
Hallo,
was soll da denn für ne Zahl rauskommen?
Lass dir die Variable mal anzeigen:
Activesheet.Cells(Activesheet.Rows.Count, 9).End(xlUp).Row
Gruß
Björn B.
Läuft nicht
19.11.2009 08:56:46
walli
Guten Morgen Björn,
habe die Zeile eingegeben, Fehlermeldung.
Laufzeitfehler 431
Objekt unterstütz die Eigenschaft oder Methode nicht.
Übrings bei mir ist so eingestellt, nach Enter nächste Zelle.
mfg walli
Ergänzung...
18.11.2009 17:17:28
Björn
Hallo,
ich war mal wieder zu schnell.
Hast Du bei Dir eingestellt, dass nach Drücken von Enter die Markierung ne Zeile runter springt?
Sonst musst du die Markierung nach F2 und Enter noch verschieben, sonst machst du das zig mal mit der gleichen Zellen.
Was willst du überhaupt machen? Werden Zahlen nicht als solche erkannt?
Das geht auch einfacher und vor allem schneller.
Schau z.B. hier, das ist ein Beitrag von heute:
https://www.herber.de/forum/messages/1118360.html
Gruß
Björn B.
Anzeige
Ja nicht erkannt
18.11.2009 21:24:05
walli
Guten Abend Björn,
ja die Zahlen werden nicht erkannt.
Wenn ich mit F2 reingehe u. dann ENTER drücke klappts.
mfg walli
Ich brauch nur die Schleife !
19.11.2009 09:05:24
walli
Hallo Björn,
wenn ich die Zeilen im Makro drin lasse,
läuft es genau so wie ich es brauch:
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
ich bräuchte jetzt eine Schleife die die Spalte 9 ab Zeile 12 abarbeitet, sonst muß
ich jedesmal den Button drücken.
Der Hinweis auf die anderen Forumsinhalte, die Makros laufen nicht.
mfg walli
Text in Zahlen umwandeln
19.11.2009 09:09:03
Matthias5
Guten Morgen,
ohne Makro:
Markiere die Spalte, stelle das Format auf Standard oder das gewünschte Zahlenformat, gehe dann im Menü "Daten" auf "Text in Spalten" und klicke dort auf "fertigstellen" - fertig!
Gruß,
Matthias
Anzeige
Das glaube ich nicht...
19.11.2009 09:14:26
Björn 

Der Hinweis auf die anderen Forumsinhalte, die Makros laufen nicht.
Hallo,
dieses Problem, das Zahlen nicht als solche erkannt werden, wurde schon zig mal hier im Forum beantwortet.
Da kannst du mir nicht erzählen, dass das alles nicht funktioniert.
Allein auf der Seite, die ich dir geschickt habe, waren mindestens 4 Möglichkeiten, das besser zu machen.
Wenn Du die Forumssuche benutzt, wirst du wahrscheinlich noch 500mal was finden.
Matthias hat dir auch noch was gezeigt.
Gruß
Björn B.
Danke -)
19.11.2009 09:47:24
walli
Hallo Björn u. Matthias,
danke für die Hilfe, werde es halt so betreiben wie Matthias
beschrieben hat, das geht schneller.
Eine Makroschleife wäre mir lieber gewesen, nun ja,
herzlichen Dank
mfg walli
Anzeige
AW: Danke -)
19.11.2009 10:40:17
Björn
Hallo,
habe die Zeile eingegeben, Fehlermeldung.

Dann ist genau das Dein Problem :-)
Ich weiß immer noch nicht, was diese Zeile soll, trotz einmal nachfragen 18.11. 17:12 
was soll da denn für ne Zahl rauskommen?

zweimal nachfragen 18.11. 17:17 
Was willst du überhaupt machen?
Jetzt frage ich also das dritte Mal (und auch das letzte Mal!!!).
Was soll diese Zeile bewirken? Was willst du machen?
Wieviele Zeilen soll durchlaufen werden?
Das weiß kein Mensch!!!
Schreib einfach mal zum Testen: 
For i = 12 To 25

Statt Deinem nicht funktionierenden Konstrukt. Bei mir läuft das. Das liegt nur an der einen Zeile, was ich auch schon gestern geschrieben habe.
ICh verstehe Dein Problem nicht.
Aber du erklärst es ja auch nicht.
wie soll ich dir ne Schleife basteln, wenn ich nicht verstehe, was du machen willst?
Warum fängst du bei 12 an?
Wie gesagt, Deine Schleife ansich funktioniert, nur die Angabe des Endwertes stimmt nicht.
Da ich nicht weiß, wie Deine Tabelle aussieht, kann ich auch nicht sagen, was da passieren soll, oder?
Gruß
Björn
Anzeige
Vielleicht noch einmal ....
19.11.2009 11:10:55
walli
Hallo Björn,
deine Anfrage:
Was soll diese Zeile bewirken? Was willst du machen?
Aufgrund der der Nummer die dann erkannt wird, wird eine Zelle
daneben eine weitere Nummer per Makro gesucht u. eingesetzt, über
Makro:
( Private Sub Worksheet_Change(ByVal Target As Range) )
Wie gesagt, wenn ich den Button drücke klappt es, die nächste Zelle nach
unten wird selektiert, ich drücke Button u.s.w. .
Wieviele Zeilen soll durchlaufen werden?
Bis in der Spalte 9 die letzte Nummer vorhanden ist, ab Zeile 12.
Herzlichen Dank für die Info, hätte vielleicht doch vorher informieren sollen
was der Zweck un Sinn sollte,
sorry.
mfg walli
Anzeige
AW: Vielleicht noch einmal ....
19.11.2009 11:16:40
Björn
Hallo Walli,
Private Sub CommandButton1_Click()
Dim i As Long
For i = 12 To 25
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next
End Sub
Dieser Code funktioniert bei mir.
Die Zellen werde einzeln durchlaufen.
Das ist Dein Code, nur ohne dieses komische Zeile.
Aber noch mal, wenn dir die Variable keinen Wert ausspuckt, dann kann die Schleife nicht funktionieren.
Gruß
Björn
Anfang u. Ende
19.11.2009 13:02:26
walli
Hey Björn,
bei mir klappt es ja auch,
DANKE.
Wie bekomme ich den jetzt automtisch die Anfang Spalt9 Zeile 12
und
das Ende hin in Spalte 9, also letzt belegt Zelle.
mfg walli
Anzeige
Geil, geht doch
19.11.2009 11:19:43
walli
Hallo Björn,
das klappt so:
For i = 12 To 25
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next
jetzt müßte ich nur noch Anfang u. ENDE einbauen,
mfg walli
'ActiveSheet.Cells(ActiveSheet.Rows.Count, 9).End(xlUp).Row
sag ich doch...
19.11.2009 11:34:22
Björn
Hallo,
das habe ich dir schon gestern gesagt.
Vielleicht noch ein Tipp.
Du gehst in Deinem Code über ActiveCell.
Du hast also keine StartZeile und EndZeile. Du startest immer an der gerade aktiven Zelle und gehst dann entsprechend oft nach unten.
Gruß
Björn B.
So geht es.
19.11.2009 13:57:52
Björn
Hallo,
so müsste es klappen.
Dim i As Long
With ActiveSheet
'Anfang Spalte 9 Zeile 12
.Cells(12, 9).Select
For i = 12 To .Cells(65536, 9).End(xlUp).Row
ActiveCell.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next
End With
Gruß
Björn B.
Anzeige
AW: So geht es.
19.11.2009 18:13:35
walli
Hallo Björn B.,
hatt mich nach deiner Info Muster gemeldet u. bedankt.
Ich weiß nicht WARUM dies nicht hier erscheint.
Herzlich DANK nochmals für die Geduld,
danke
mfg walli

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige