Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gehe zur 1. leeren ungeschützten Zelle

Gehe zur 1. leeren ungeschützten Zelle
14.01.2008 07:36:26
Harald
Hallo zusammen,
in meiner Datei werden von anderen Anwendern Daten in Eingabezellen geschrieben.
Nur diese Zellen sind ungeschützt.
Nach der Eingabe wird die Tabelle durch ein manuell zu startendes Makro neu sortiert.
Nun zu meiner Frage:
Gibt es einen VBA- Code der nach der Eingabe automatisch die nächste leere Zelle auswählt?
Vielen Dank im voraus.
Gruß, Harald G.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gehe zur 1. leeren ungeschützten Zelle
14.01.2008 10:12:53
Thorsten_Z
Hallo Harald,
zeig doch mal den Code, der zum sortieren verwendet wird und schreib noch dazu, in welcher Spalte die Zelle gesucht werden soll.
Gruß
Thorsten

Gehe zur 1. leeren ungeschützten Zelle
14.01.2008 10:54:03
Harald
Hallo Thorsten,
ich habe die Datei zurzeit nicht im Zugriff.
Aber die Datei ist in etwa so aufgebaut:
Zeilen 1-20 / Spalten A-K: Tabellenbereich für Summen aus den Eingabezellen.
Die Summen bilden sich mit festen Bezügen aus den Eingabezellen.
Der obere Bereich ist komplett gesperrt und wird nur durch das Makro sortiert
(Aufzeichnung mit Recorder / Daten sortieren).
Danach ist immer die oberste Eingabezelle ausgewählt. Da diese aber bereits einen Wert enthält ist die Gefahr diesen zu überschreiben in diesem Moment gross. (Später sperre ich die bereits bestückten Zellen manuell - ist aber ein anderes Problem.)
Die Eingabezellen befinden sich im Bereich B22-E100.
Hier soll nach dem Sortieren automatisch die erste ungeschützte leere Zelle ausgewählt werden, da hier im Normalfall die nächste Eingabe getätigt werden muss.
Gruß, Harald

Anzeige
wieder offen...sorry
14.01.2008 14:06:00
Thorsten_Z
Hallo Harald,
ich habe nicht richtig gelesen...sorry. Wie man in einem Bereich die nächste leere ungeschützte Zelle findet weiß ich nicht.
Desshalb Frage wieder offen.
Tut mir leid
Gruß
Thorsten

ups, so jetzt wieder offen
14.01.2008 18:43:00
Thorsten_Z

AW: ups, so jetzt wieder offen
15.01.2008 08:24:00
Harald
Frage noch offen!

Wieder offen! Ot
15.01.2008 17:11:15
Ach
ot

Frage leider immer noch unbeantwortet
15.01.2008 17:39:07
Harald
Frage leider immer noch unbeantwortet

Antwort!
18.01.2008 08:46:51
Wolli 

Sub test()
Dim lngZeile As Long, _
lngSpalte As Long
'durchsuche alle Zeilen von 22 bis 100
For lngZeile = 22 To 100
'Innerhalb der Zeilen durchsuche die Spalten von B bis E
For lngSpalte = 2 To 5
' Leer UND nicht gesperrt?
If Cells(lngZeile, lngSpalte) = "" And Cells(lngZeile, lngSpalte).Locked = False  _
Then
'Dann auswählen und Ende
Cells(lngZeile, lngSpalte).Select
Exit For
End If
Next lngSpalte
'Nochmal prüfen, damit auch die 2. For-Schleife verlassen werden kann
If Cells(lngZeile, lngSpalte) = "" And Cells(lngZeile, lngSpalte).Locked = False Then
Exit For
End If
Next lngZeile
'Hier geht dann das Makro weiter
End Sub


Gruß, Wolli

Anzeige

305 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
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 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
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2