Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

erste leere Zelle einer Zeile finden.

erste leere Zelle einer Zeile finden.
Marcel
Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: erste leere Zelle einer Zeile finden.
23.09.2009 14:23:15
JogyB
Hi.
Wenn es die erste rechts daneben sein soll:
Sub schreibeInLeereZelle()
If ActiveCell.Column = Columns.Count Then
GoTo errorHandler
ElseIf ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Value
Else
' Fehlerbehandlung, Zeile kann voll sein
On Error GoTo errorHandler
ActiveCell.End(xlToRight).Offset(0, 1).Value = ActiveCell.Value
End If
Exit Sub
errorHandler:
MsgBox ("Zeile voll")
End Sub
Wenn es allgemein die erste leere Zelle sein soll:
Sub schreibeInLeereZelle2()
If ActiveCell.Offset(, 1 - ActiveCell.Column) = "" Then
ActiveCell.Offset(, 1 - ActiveCell.Column).Value = ActiveCell.Value
ElseIf ActiveCell.Offset(, 2 - ActiveCell.Column) = "" Then
ActiveCell.Offset(, 2 - ActiveCell.Column).Value = ActiveCell.Value
Else
On Error Resume Next
ActiveCell.Offset(, 1 - ActiveCell.Column).End(xlToRight).Offset(0, 1).Value = _
ActiveCell.Value
If Err.Number  0 Then MsgBox ("Zeile voll")
End If
End Sub
Was man mit "VBA gut" aber eigentlich hinkriegen sollte...
Gruss, Jogy
Anzeige
AW: erste leere Zelle einer Zeile finden.
23.09.2009 15:32:36
Marcel
Cool
Vielen Dank
Gruss Marcel

362 Forumthreads zu ähnlichen Themen


Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
Anzeige

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
Anzeige

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige