Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
248to252
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen

Zellen
30.04.2003 11:46:42
Andreas
Hallo
Kann mir jemand den Code nennen mit dem Ich eine Zelle Z.b A3 Tabelle1 nach Tabelle 2 A3 kopiere bein nächsten Eintrag in Tabelle 1 A3 soll der wert nach Tabelle 2 A4 geschrieben werden.
Danke im voraus
MFG Andy

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

Betreff
Datum
Anwender
Anzeige
Re: Zellen
30.04.2003 11:55:12
Mike E.

Hallo,

über die "Selection_Change"-Eigenschaft des Tabellenblattes:

Dim Zeile as Integer

Zeile = 3

While Sheets("Tabelle2").Cells(Zeile,1) <> ""

Zeile = Zeile + 1

Wend

Sheets("Tabelle2").Cells(Zeile,1) = Sheets("Tabelle1").Range("A3")

Sheets("Tabelle1").Range("A3") = ""

Grüße
Mike

Re: Zellen
30.04.2003 11:57:15
Umbratus

Über A4 usw isses umständlich

zB:

Dim i as integer

i=4
while(Tabelle1.Cells(1,i).value <> "")
Tabelle2.cells(1,i+1).value = Tabelle1.cells(1,i).value
i=i+1
wend

Kopiert alle Zellen aus Tabelle1 ab A4 nach Tabelle2 ab A5 bis eine Leerzeile kommt.

Gruß Umbratus

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige