Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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
Inhaltsverzeichnis

verschieben

verschieben
22.12.2008 16:48:17
Rolf
Hallo Leute!
Eine Frage :wie kann ich mit VBA
Wert aus A1 in die erste leere Zelle in Spalte "B"
verschieben?
Grüße
Rolf

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschieben
22.12.2008 16:52:44
Hajo_Zi
Halo Rolf,
mal nur zur Klärung,
Die erste leere oder die leere nach der letzten gefüllten?

AW: verschieben
22.12.2008 17:23:55
Rolf
Hallo Hajo!
ich meine nach der letzten gefüllten
Rolf
AW: verschieben
22.12.2008 17:36:45
hary
Hallo Rolf
Makro
Dim zelle As Long

Sub eintrag()
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1 'leere Zelle in Spalte finden
Cells(zelle, 2) = Cells(1, 1) ' Eintrag in leere Zelle
End Sub


Gruss Hary

AW: verschieben
22.12.2008 17:46:00
Rolf
Hallo Hary!
Ich freue mich Dich zu treffen!
Das Makro arbeitet prima!
(wie auch Alles von Dir)
Danke sehr!
Rolf
Anzeige
Bitte und frohes Fest owT
22.12.2008 17:49:00
hary
.
AW: Bitte und frohes Fest owT
22.12.2008 18:06:51
Rolf
Hallo Hary!
Wie Hajo gemerkt hat -hat die Sache ein Haken!
Es wird in B2 geschrieben wobei B1 leer ist!
Wenn ich Insert(xlDown) schreibe wird die Zeile
runter geschoben-also ich kann nicht erreichen
das auch B1 gefüllt wird.Ich brauche aber ein Wert
in B1.Der zweite Wert kann nach B2 gehen oder nach
B1 so das der frühere Wert von B1 nach B2 verschoben wird.
Beste Wünsche zu den Feiertagen!
Rolf
AW: Bitte und frohes Fest owT
22.12.2008 18:13:11
Hajo_Zi
Hallo Rolf
If zelle =2 and Cells(1,2)="" Then Zelle =1

AW: Bitte und frohes Fest owT
22.12.2008 18:22:48
Rolf
Hallo Hajo!
Danke für die Lösung!!
Ich wünsche Dir die Beste Feiertage und frohes Fest!
Herzliche Grüße
Rolf
Anzeige
An Hary
22.12.2008 19:09:54
Rolf
Hallo Hary!
könntest Du den Vorschlag von Hajo ins Makro
einarbeiten-ich bekomme jetzt Werte in B1 und B2
zugleich!
Es sollte aber beim 1 durchlauf B1 gefüllt werden
und bei 2 durchlauf in B2 geschrieben werden.
Grüße
Rolf
AW: Übrtrag
22.12.2008 19:16:40
Hajo_Zi
Hallo Rolf,
ich bin nicht Hary, schreeibe die Zeile genau in die mitte des code.
Nach der Zeile Zelle =...
Gruß Hajo
AW:nimms so
22.12.2008 19:22:00
hary
hallo Rolf

Dim zelle As Long
Sub eintragen()
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1 'leere Zelle in Spalte finden
If zelle = 2 And Cells(1, 2) = "" Then zelle = 1
Cells(zelle, 2) = Cells(1, 1) ' Eintrag in leere Zelle
End Sub


Gruss Hary

Anzeige
AW: AW:nimms so
22.12.2008 19:31:00
Rolf
Hallo Hary und Hajo!!
Es arbeitet perfekt!!
Herzliche Grüße
Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige