Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Kopieren

Forumthread: VBA - Kopieren

VBA - Kopieren
25.07.2006 15:25:01
Ralf
Hallo Excel Experten,
ich ( VBA Anfänger!!!) habe mittels einer Prozedur
Daten generiert, die in den Zellen A2 bis B6 stehen.
Nun möchte ich diese Daten als Wert direkt darunter
kopieren, d.h. in die erste freie Zelle und wenn ich
in A2 bis B6 wieder neue Daten habe, soll mir Excel
diese dann wieder darunter in die nächste freie Zelle
kopieren usw.
Ist soetwas überhaupt möglich ? Ich habe mir schon
einige Zähne daran ausgebissen und würde mich über
hilfreiche Hinweise sehr freuen.
Viele Grüße
Ralf
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Kopieren
25.07.2006 15:34:58
Matthias
Hallo Ralf,
stell dein Makro mal hier ein, dann kann man das anpassen.
Gruß Matthias
AW: VBA - Kopieren
25.07.2006 15:43:21
Ralf
Hallo Matthias,
vielen Dank für Deine schnelle Antwort. Es ist praktisch eine Hauptprozedur (Telefon1()) die
auf drei andere zurückgreift.
Viele Grüße
Ralf

Sub Telefon1()
Grundaufbau   ' Aufruf der Prozedur Grundaufbau
Dateneingabe  ' Aufruf der Prozedur Dateneingabe
FügeWerteEin   ' Aufruf der Prozedur FügeWerteEin
End Sub

' Bereitet ein neues Tabellenblatt vor, indem Formeln
' eingegeben und Spaltenbreiten angepasst werden.

Sub Grundaufbau()
Range("A2").Value = "Teilnehmername"
Range("A3").Value = "Alter Zählerstand"
Range("A4").Value = "Neuer Zählerstand"
Range("A5").Value = "Verbrauchte Einheiten"
Range("A6").Value = "Gesamtpreis"
End Sub

'Fordert den Benutzer zur Eingabe von Informationen auf

Sub Dateneingabe()
Teilnehmername = InputBox("Welcher Teilnehmer?")
Alt_Zaehler = InputBox("Höhe des alten Zählerstandes?")
Neu_Zaehler = InputBox("Höhe des neuen Zählerstandes?")
End Sub

'Prozedur fügt die vom Benutzer eingegebenen Werte
'Zellen des Tabellenblattes ein

Sub FügeWerteEin()
Range("B2").Value = Teilnehmername
Range("B3").Value = Alt_Zaehler
Range("B4").Value = Neu_Zaehler
Verbrauch = Neu_Zaehler - Alt_Zaehler
Range("B5").Value = Verbrauch
Gesamtpreis = Verbrauch * PreisEinheit + Grundgebuehr
Range("B6").Value = Gesamtpreis
End Sub

Anzeige
AW: VBA - Kopieren
25.07.2006 15:44:05
Peter
Hallo Ralf,
vielleicht hilft dir die beigefügte Mappe weiter:
https://www.herber.de/bbs/user/35332.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Super Vielen Dank Peter !!!
25.07.2006 15:52:42
Ralf
Hallo Peter,
das funktioniert ja ganz toll !!!
Vielen Dank für Deine schnelle Hilfe.
(Ich hoffe, dass ich den Code auch eines schönen Tages
noch verstehe :-) )
Viele Grüße
Ralf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige