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

Mittels VBA gleicher Text in mehreren Zellen

Forumthread: Mittels VBA gleicher Text in mehreren Zellen

Mittels VBA gleicher Text in mehreren Zellen
18.02.2003 10:17:25
Josef
Hallo!

Ich müßte z.B.in Spalte G von Zeile2 bis Zeile 800 den Text 2.Qu.03 eintragen.
Mit Kopieren, Zeilen markieren- einfügen ist sowieso klar.
Gäbe es aber hier bitte auch eine VBA Lösung?

Danke

Josef

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mittels VBA gleicher Text in mehreren Zellen
18.02.2003 10:25:59
Andreas Walter

For i = 2 to 800
cells(i,7).value="2.Qu.03"
next

7 bedeutet Spalte 7 = G

Re: Mittels VBA gleicher Text in mehreren Zellen
18.02.2003 10:27:41
Sven

Hallo ist doch ganz einfach!
Oder hab ich dich falsch verstanden?

Private Sub CommandButton1_Click()
Range("G2:G800") = "Qu.03"
End Sub

mfg Sven

Ohne Schleife: Range("G2:G800") = "2.Qu.03"
18.02.2003 10:29:06
Boris

Gruß Boris

Anzeige
Re: Ohne Schleife: Range("G2:G800") = "2.Qu.03"
18.02.2003 10:34:51
Josef

Hallo!
Danke an alle für Eure Hilfe.

Habe hier noch eine Variante gefunden:

Range("A1:A13").Select
Selection.Cells.FormulaR1C1 = "test"


Danke

josef

Re: Ohne Schleife: Range("G2:G800") = "2.Qu.03"
18.02.2003 10:39:48
Boris

Hi Josef,

das ist aber mit Sicherheit die schlechteste aller Varianten, denn auf SELECT kann in VBA zu 99% verzichtet werden.
Besser, du gewöhnst es dir gar nicht erst an....

Gruß Boris

Anzeige

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Datei öffnen - nach Zelleninhalt
Jens

Hallo,
Ich habe einen Ordner (C:/excel/muster) der mehrere Exceldateien enthält (auswahl.xls, 101.xls, 102.xls, etc.)
Nun möchte ich in der Datei auswahl.xls in der Zelle A1 eine Zahl eingeben, z.B. 101
und dann mit Klick auf Schaltfläche soll sich die Datei 101.xls in einem neuen F...
11.09.2008 11:29:25
Thread-ID: 1009049
4 Beiträge
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 Beiträge
Anzeige
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
Anzeige
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 Beiträge
Teilinhalte aus Zellen löschen
Der

Hallo da draußen,
ich möchte aus einer Zelle die ersten x Zeichen von links löschen und die Restlichen beibehalten. Mit dem Befehl left(cells(R,C),x) kann ich auf diese Zeichen zugreifen und sie auch auslesen. Wie kann ich sie nun löschen?
Danke für Eure Hilfe!
Grüße aus der Hauptst...
25.03.2009 15:20:24
Thread-ID: 1063841
9 Beiträge
Anzeige

Infobox / Tutorial

VBA für gleichen Text in mehreren Zellen einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei: Starte Excel und öffne die Datei, in der Du den gleichen Text in mehreren Zellen einfügen möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Gib den VBA-Code ein: Füge den folgenden Code in das Modul ein, um in die Zellen G2 bis G800 den Text "2.Qu.03" einzufügen:

    Sub TextInMehrereZellenEinfügen()
    For i = 2 To 800
        Cells(i, 7).Value = "2.Qu.03" ' 7 entspricht der Spalte G
    Next i
End Sub

  5. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle TextInMehrereZellenEinfügen aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004“: Dieser Fehler tritt auf, wenn Du versuchst, auf eine nicht existierende Zelle zuzugreifen. Überprüfe, ob der Zellbereich korrekt definiert ist.

  • Lösung: Überprüfe die Spalte und den Bereich: Stelle sicher, dass Du die richtige Spalte (z.B. G für 7) und den richtigen Bereich (z.B. von Zeile 2 bis 800) angegeben hast.

  • Fehler: „Objekt erforderlich“: Dies passiert, wenn Du versuchst, auf ein nicht definiertes Objekt zuzugreifen.

  • Lösung: Verwende korrekt definierte Objekte: Achte darauf, dass alle Objekte korrekt referenziert sind, wie in Cells(i, 7).

Alternative Methoden

  • Direkte Zuweisung ohne Schleife: Du kannst den Text auch ohne Schleife in den Zellen einfügen:

    Sub TextOhneSchleife()
    Range("G2:G800").Value = "2.Qu.03"
End Sub

  • Eingeben von Text in verschiedene Zellen: Wenn Du unterschiedliche Texte in verschiedenen Zellen einfügen möchtest, kannst Du eine Formel verwenden:

    Range("A1:A13").FormulaR1C1 = "test"

Praktische Beispiele

  1. Gleicher Inhalt in mehreren Zellen: Um den gleichen Inhalt in mehreren Zellen zu haben, kannst Du die Formel =G2 in andere Zellen kopieren.

  2. Kombinieren von Text aus mehreren Zellen: Um den Inhalt aus mehreren Zellen in eine Zelle zu kopieren, kannst Du die &-Operator verwenden:

    =A1 & " " & B1

  3. Erstellen eines Makros für häufige Aufgaben: Wenn Du oft den gleichen Text einfügen musst, erstelle ein Makro, das diese Aufgabe automatisiert.

Tipps für Profis

  • Vermeide die Verwendung von Select: Wenn Du in VBA arbeitest, versuche, Select zu vermeiden, da es die Ausführung verlangsamen kann. Greife direkt auf die Zellen zu.

  • Nutze die With-Anweisung: Wenn Du mehrere Eigenschaften eines Objekts festlegen möchtest, nutze die With-Anweisung, um den Code zu optimieren:

    With Range("G2:G800")
    .Value = "2.Qu.03"
    .Font.Bold = True
End With

  • Teste Dein Makro in einer Kopie der Datei: Bevor Du ein Makro in einer wichtigen Datei ausführst, teste es immer in einer Kopie, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich den Text in einer anderen Spalte einfügen?
Ändere einfach die Zahl in der Cells(i, 7)-Anweisung, um auf die gewünschte Spalte zuzugreifen (z.B. Cells(i, 1) für Spalte A).

2. Kann ich mit VBA mehrere Zellen mit unterschiedlichem Inhalt füllen?
Ja, Du kannst eine Schleife verwenden und den Inhalt für jede Zelle individuell anpassen oder eine Liste in einem Array verwenden.

Beliebteste Forumthreads (12 Monate)

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