Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
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
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Cursor in nexte leere zelle positionieren

Cursor in nexte leere zelle positionieren
Nibio
Hallo Freunde,
dieses Probelm hatte ich schon mal vor einiger Zeit, und Lösungen gab es auch nicht (zumind. haben bei mir nicht funktioniert weil ich nicht viel Ahnung davon habe, leider).
Es ist einfach, ich möchte per VBA den Cursor in die nächste leere Zelle positionieren (in Spalte A).
Aber! Ist A1 leer, dann soll er nicht zu A2 springen, sondern in A1 blieben.
Wenn A1 nicht leer ist, dann muß ins A2 usw...
Wäre dies zu viel verlangt? Sollte nur ein einfaches scrpt sein, VBA, änlich wie ein einfaches Makro.
Gruß
Nibio
VBA: Cursor in nächste leere Zelle positionieren
25.08.2011 14:04:48
NoNet
Hallo Nibio,
kopiere den folgenden VBA-Code in das Klassenmodul des betreffenden Tabellenblattes (also : Rechtsklick auf den Namen des Blattes im Blattregister unten, dann "Code anzeigen..." auswählen und im nun geöffneten VBA-Editor den Code einfügen und VBA-Editor wieder schließen) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then 'nur für Eingaben in Spalte A
[A:A].Find("", lookat:=xlWhole).Select
End If
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Anzeige
AW: VBA: Cursor in nächste leere Zelle positionieren
25.08.2011 14:34:54
Nibio
Hallo Nonet,
danke vielmals. Aber das hilft mir nicht weiter. Hier ist men Script:
Sub decifra()
Range("AL1").Select
Selection.Copy
'Range("A1").Select
Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Diese Script, kopiert von AL1 zu Spalte A ins nexte freie Zelle.
Dein Script, könnte ich hier nicht einbinden.
Ich hatte eigentlich die Lösung:
Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Select
Allerdings wenn in A1
nichts enthalten ist (wenn leer), dann wird in A2 kopiert und A1 bleibt leer. Soltle aber in A1 kopieren.
Ich benötige hier nur ein Korrektur, es muss hier in dieses Script was geändert werden. Oder ist das unmöglich?
Alles andere ist mir zu kompliziert.
Ich stelle mir sowas vor:
Sub test()
Wenn A1='leer" dann Range("A1").Select
else
Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Select
En sub
Bin leider kein Programmierer aber in richtige VBA umgesezt müßte doch gehen oder nicht?
Vielen Dank,
Gruß
Nibio
Anzeige
AW: VBA: Cursor in nächste leere Zelle positionieren
25.08.2011 20:59:02
Gerd
Hallo Nibio,
wo schreibst Du ab, wenn Du es nicht selbst umsetzen kannst?
Bei der Find-Methode klemmte es nur an den Argumenten. 
Sub Test()
If Len(Cells(1, 1)) = 0 Then
Cells(1, 1) = Cells(1, 38).Value
Else
Cells(Rows.Count, 1).End(xlUp).Offset(1) = Cells(1, 38).Value
End If
End Sub
Gruß Gerd
AW: VBA: Cursor in nächste leere Zelle positionieren
27.08.2011 00:31:04
Nibio
Danke Gerd, super lösung.
Wie sieht den Script aus wenn Ansatt von AL1 (Cells(1, 38).Value) der nächste nicht leere zelle aus Spalte
"AL" kopiert werden muss? Dann wäre meine Sammlung perfekt.
Danke Dir au fjeden Fall.
Gruß
Nibio
Anzeige
AW: VBA: Cursor in nächste leere Zelle positionieren
27.08.2011 08:22:41
Gerd
Hallo Nibio!
... wenn Ansatt von AL1 (Cells(1, 38).Value) der nächste nicht leere zelle aus Spalte
"AL" kopiert werden muss?
Diese Frage ist interpretierbar.
Nimm mal wie von Nonet gezeigt, die Find-Methode, ersetze "" durch "*" u. fülle die weiteren Argumente
After:=Cells(1, 38), LookAt=xlPart, Lookin:=xlValues
Gruß Gerd
AW: VBA: Cursor in nächste leere Zelle positionieren
27.08.2011 13:19:36
Nibio
Hallo Gerd,
Ok Danke auch wenn ich nichts verstanden habe.
Bin kein Programmierer, ohne richtige Beispiele komme ich nicht weiter.
Gruß
Nibio
AW: VBA: Cursor in nächste leere Zelle positionieren
27.08.2011 14:37:58
Gerd
Hallo Nibio,
macht nichts. Es kommt aber - wie geschrieben - auf deine Konstellationen an.
Columns(38).Find("*", after:=Cells(1, 38), lookat:=xlWhole, LookIn:=xlValues).Activate
Gruß Gerd
Anzeige

304 Forumthreads zu ähnlichen Themen

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
Anzeige
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
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Eingaben in Zelle nach links versetzen
thorsten

Guren Morgen,
ich habe eine Datei angeführt:
https://www.herber.de/bbs/user/57594.xls
Hier habe ich folgendes Problem. In der Spalte A müsste ich alle Nummern um 2 Positionen nach rechts versertzt haben. Die Originaldatei hat 16.000 Zeilen - gibt es hierfür eine Formel?
Danke
13.12.2008 10:16:00
Thread-ID: 1032577
9 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
16
4
5
3
13
2
5
1
4
8
2
2
4
3
2
8
4
4
2
2
4
9
2
2
2