Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Text in nächste Zeile schreiben

Forumthread: Makro: Text in nächste Zeile schreiben

Makro: Text in nächste Zeile schreiben
06.01.2006 11:26:00
Torben
Hallo VBA-Spezies,
bitte helft mir.
Ich möchte, dass bei klicken einer Schaltfläche Text aus einer Zelle in eine andere Zelle eines anderen Tabellenblattes kopiert wird.
Dabei soll der alte Text nicht überschrieben werden, sondern der Text in die nächste nicht-leere Zeile eingefügt werden.
D.h., beim ersten Betätigen der Schaltfläche soll der Text in die Zelle A1 kopiert werden, beim zweiten in Zelle A2 usw.
Super wäre, wenn ich einen VBA-Code bekommen könnte.
Danke im Voraus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Text in nächste Zeile schreiben
06.01.2006 12:41:04
Ramses
Hallo
Z.B. so
Worksheets("Andere_Tabelle").Range("A10000").End(xlUp).offset(1, 0) = Activecell.Value
Der Code sucht in der "Anderen_Tabelle" von A10000 aufsteigend die erste freie Zelle und schreibt dort den Wert der gerade aktiven zelle hin
Gruss Rainer
AW: Makro: Text in nächste Zeile schreiben
06.01.2006 13:56:49
Torben
Danke, klappt super!
Und nun möchte ich noch gerne eine Diagramm aus der sich füllenden Tabelle erstellen, aber nur soweit, wie die Zeilen der Tabelle gefüllt sind.
D.h., wenn die ersten 5 Zeilen gefüllt sind, dann ein Diagramm über die ersten 5 Zeilen, wenn die ersten 15, dann über 15 Zeilen usw.
Danke für schnelle Hilfe!
Anzeige
AW: Makro: Text in nächste Zeile schreiben
06.01.2006 16:55:23
Ramses
Hallo
schau mal in der Recherche nach "Dynamisches Diagramm" dort ist das gut erklärt.
Die Frage ist schon zig-mal gestellt worden.
Gruss Rainer
;

Forumthreads zu verwandten Themen

Zeilenhöhe in Abhängigkeit von Textlänge
Textlänge

Guten Tag
Ich habe bei zwei verbundenen Zellen wie folgt formatiert:
- Textausrichtung --> Blocksatz
- Textsteuerung: Zeilenumbruch
Diese verbundenen Zellen (hier B20:C20) sind mit dem Namen "Beurteilung1" benannt. Der Inhalt wird durch eine Formel gesteuert. Als Ergebnis ste...
13.10.2008 16:27:02
Thread-ID: 1016108
6 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Anzeige
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Anzeige
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Anzeige
inhalt aus textbox in letzt freie zeile
hans

Hallo und guten Abend,
ich möchte gerade ein Userform erstellen, dass mir die werte die ich über mehrere Textboxen eingebe, in die letzte freie Zeile einträgt. Mit VBA kenn ich mich leider gar nicht aus. Zwar klappt das eintragen per Userform, aber wo und wie ich den Code produzieren und ei...
03.01.2009 23:46:03
Thread-ID: 1036668
10 Beiträge
Bestimmte Zeilen in Textfile rauslöschen
Seluaner

Guten Abend zusammen !
Mittels dem folgenden Code - Ausschnitt (den hab ich übrigens mal hier im Forum von einem netten Forumanen erhalten)
lese ich grosse Textfiles ein und suche darin nach der Zeile mit dem Tittel "Generierungsprotokoll"
Alles bis und mit dieser Zeile wird gelösc...
19.01.2009 18:33:00
Thread-ID: 1041615
7 Beiträge
Textboxeingabe-Zeilenverweis
Dee

hallo ihr Lieben,
ich möchte eine Suchliste (300 Einträge in den Zeilen B1-B300, darunter auch Leerzeilen!) mit einer Textbox verknüpfen. Dabei habe ich daran gedacht, dass wenn man in der Textbox einen Begriff eingibt, das Tabellenblatt an die gewünschte Position springt, wo sich der Begr...
21.01.2009 13:58:46
Thread-ID: 1042166
13 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Text in die nächste Zeile in Excel schreiben

Schritt-für-Schritt-Anleitung

Um Text aus einer Zelle in die nächste Zeile eines anderen Tabellenblattes zu schreiben, ohne den vorherigen Text zu überschreiben, kannst Du den folgenden VBA-Code verwenden. Dieser wird den Text in die nächste nicht-leere Zeile einfügen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" wählst.

  3. Kopiere den folgenden Code in das Modul:

    Sub TextInNaechsteZeileSchreiben()
   Dim ws As Worksheet
   Set ws = Worksheets("Andere_Tabelle")
   ws.Range("A10000").End(xlUp).Offset(1, 0) = ActiveCell.Value
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Füge eine Schaltfläche hinzu, indem Du unter dem Tab "Entwicklertools" auf "Einfügen" klickst und eine Schaltfläche auswählst.

  6. Weise der Schaltfläche das Makro TextInNaechsteZeileSchreiben zu.

Jetzt kannst Du durch Klicken auf die Schaltfläche den Text aus der aktiven Zelle in die nächste Zeile bei Excel schreiben.

Häufige Fehler und Lösungen

  • Fehler: Der Text überschreibt die vorhandenen Daten.

    • Lösung: Stelle sicher, dass Du das End(xlUp)-Kommando verwendest, um die nächste freie Zeile zu finden.

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob Du das Makro korrekt zugewiesen hast und dass Du in der richtigen Zelle bist, bevor Du die Schaltfläche klickst.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch Formeln oder die Funktion „Kopieren und Einfügen“ nutzen:

  • Kopieren und Einfügen: Du kannst den gewünschten Text manuell kopieren und mit STRG + V in die nächste Zeile einfügen.
  • Formel: Verwende die Formel =A1 in Zelle A2, um den Text aus A1 zu übernehmen, und ziehe die Formel nach unten.

Diese Methoden sind jedoch weniger automatisiert und erfordern manuelle Eingriffe.

Praktische Beispiele

  1. Text in die zweite Zeile schreiben: Wenn Du den Text in der Zelle A1 hast und möchtest, dass dieser in A2 geschrieben wird, kannst Du die oben genannten Schritte befolgen.

  2. Für eine Liste von Werten: Wenn Du mehrere Werte hast, die in eine Liste eingefügt werden sollen, kann der VBA-Code angepasst werden, um durch alle aktiven Zellen einer bestimmten Spalte zu iterieren.

Tipps für Profis

  • Nutze Application.CutCopyMode = False, um den Kopiermodus nach dem Einfügen zu deaktivieren.
  • Überlege, wie Du den VBA-Code optimieren kannst, um ihn auf verschiedene Blätter oder Bereiche anzuwenden.
  • Experimentiere mit Range("B" & Rows.Count).End(xlUp).Offset(1, 0) für mehr Flexibilität beim Schreiben in andere Spalten.

FAQ: Häufige Fragen

1. Frage
Wie kann ich sicherstellen, dass ich in die richtige Zelle schreibe?
Du kannst die aktive Zelle mit ActiveCell.Value erfassen und prüfen, in welcher Zelle Du gerade arbeitest.

2. Frage
Kann ich den VBA-Code anpassen, um in eine andere Spalte zu schreiben?
Ja, ändere einfach die Range-Referenz im Code, z.B. Range("B10000") für die B-Spalte.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige