veränderbare Werte in jeweils nächste leere Zelle übernehmen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] veränderbare Werte in jeweils nächste leere Zelle übernehmen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

dhil
Newbie
Newbie

Anmeldedatum: 27.03.2008
Beiträge: 8

Verfasst am: 27.03.2008, 15:49

Hallo,

ich brauche Hilfe bei folgendem Problem:

veränderbare Werte aus einer bestimmten Zelle (z.B. B2) möchte ich übernehmen z.B. nach I28. Der nächste veränderte Werte (neue Berechnung) aus B2 soll dann in I29 festgeschrieben werden. Der nächste errechnete Wert soll dann in I30 übernommen werden.

Bin hier für eine Hilfestellung/Lösung dankbar.
Grüsse dhil

dhil
Newbie
Newbie

Anmeldedatum: 27.03.2008
Beiträge: 8

Verfasst am: 28.03.2008, 13:48

Hallo,

ist die Problemstellung zu umständlich bzw. zu undeutig formuliert?
Wenn ja, einfach nachfragen, vielleicht kann ich es bei einer konkreten Nachfrage besser erläutern.

Weiterhin vielen Dank für Hilfe.

Grüsse dhil

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4847

Verfasst am: 29.03.2008, 20:11

Hallo!

Rechtsklicke den Tabellenreiter des Blatts und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Calculate()
Dim Ziel As Range
Set Ziel = Cells(WorksheetFunction.Max(27, Range("I65536").End(xlUp).Row), 9)
If Range("B2") <> Ziel Then Ziel.Offset(1, 0) = Range("B2")
End Sub

Ändert sich der Wert in B2, so wird dieser Wert ab I28 abwärts aufgelistet.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

dhil
Newbie
Newbie

Anmeldedatum: 27.03.2008
Beiträge: 8

Verfasst am: 31.03.2008, 08:22

Hallo,

super!!! Klappt hervorragend
Vielen Dank und Grüsse dhil

dhil
Newbie
Newbie

Anmeldedatum: 27.03.2008
Beiträge: 8

Verfasst am: 04.04.2008, 09:29

Hallo,

hier noch eine andere Variante zum Anschauen, die mir ebenfalls zur Verfügung gestellt worden ist:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
Cells(Rows.Count, 4).End(xlUp).Offset(27, 0).Value = Target.Value
End If
End Sub

Auch für diese Lösung vielen Dank.

Grüsse dhil

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	VBA nach sortieren zur ursprünglichen...	HolgerKu	Microsoft Excel Hilfe	4	03.07.2008, 21:05
	bestimmter teil innerhalb einer zelle...	ponte	Microsoft Excel Hilfe	2	02.07.2008, 14:13
	VBA Hintergrundfarbe ändern wenn best...	Posaune	Microsoft Excel Hilfe	7	01.07.2008, 21:09
	[Excel 2003] Format einer Zelle beibe...	-s!Gm4-	Microsoft Excel Hilfe	4	01.07.2008, 17:34
	fehlende Werte in Tabelle automatisch...	mm211	Microsoft Excel Hilfe	4	30.06.2008, 13:34

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de