Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte untereinander eintragen
#1

.xlsm   UntereinanderKopieren.xlsm (Größe: 17 KB / Downloads: 3)
Hallo liebe Leute!

Ich habe mit (kopieren, Inhalte einfügen,  Werte) ein Makro gebastelt, vielleicht etwas umständlich, aber es

funktioniert.

Mein Problem ist: Nach jedem abgeschlossenen Rechenvorgang wird der Wert in die selbe Zelle eingetragen.

Ich brauche es aber so, dass nach jedem Rechenvorgang, der Wert in die Zelle unterhalb eingetragen wird.

zb.: H1, H2, H3, usw.....

Ich bin VBA - Neuling und bitte um Hilfe.

Herzlichen Dank im Voraus, :19:

Atnik

Zum besseren Verständnis eine Anhangdatei.
Antworten Top
#2
Hallo, warum der Doppelpost..? Und warum jedes Mal eine leeren Zeile im Text..?
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#3
Hallo Jockel!

Tut  mir leid, das mit der Doppelpost, das war ein Irrtum.
Jede 2te Zeile, ich dachte, dass es übersichtlicher ist.
Sorry, liebe Grüsse aus Wien,
Atnik
Antworten Top
#4
Hallo,

die Zeile der letzten belegten Zelle ermittelt man meist im Prinzip so, hier anhand Spalte A:

loLetzte=Cells(Rows.Count,1).End(xlup).Row

Frei wäre dann die darunter, also 1 dazuzählen.

Eine Variante vom Einfügen wäre dann z.B.

Range("A" & loLetzte+1).Paste

hier mit +1, falls Du es nicht schon vorher dazugezählt hast.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
Hallo André,

vielen Dank für Deine Bemühungen. Ich habe insgeheim gehofft, dass Du das Thema behandelst, denn seit Deiner
letzten Hilfe bin ich ein Fan von Dir.
Das war: Kkleinste und Kgrösste löschen mit VBA, hat alles wunderbar geklappt und war sehr gut erklärt.
Ich werde mir morgen Deinen Vorschlag anschauen und studieren.
Heute ist es schon spät und nach 56 km am Rad bin ich ziemlich müde. Bin nicht mehr der Jüngste mit 76.
Jedenfalls nochmals herzlichen Dank für Deine Hilfe!!!

Liebe Grüsse aus Wien,

Atnik :19:
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste