Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Makro Texte in Tabellenfelder füllen

Per Makro Texte in Tabellenfelder füllen
06.08.2014 09:11:19
Renate
Guten Tag,
ich möchte per Makro in sämtlichen Tabellenblättern einer Mappe jeweils in das gleiche Feld - z. B. range("Q14") - den gleichen Texteintrag vornehmen. Könnt Ihr mir bitte bei der Schleife helfen? For i = 1 to ................. next.
Schönen Dank für Eure Hilfe.
Renate

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Per Makro Texte in Tabellenfelder füllen
06.08.2014 09:22:29
Matthias
Hallo
Dim x&
For x = 1 To Worksheets.Count
Worksheets(x).Range("Q14") = "Hallo World"
Next
Gruß Matthias

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 09:46:49
Jan
Danke Matthias,
es funktioniert. Könntest Du mir bitte noch sagen, wie ich die Breite von Spalte Q per VBA verändere?
Im Voraus schon ganz herzlichen Dank für Deine Unterstützung.
Renate

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 09:53:27
Daniel
Hi
Solche Fragen kann man sich mit Hilfe des Makrorecorders leicht selbst beantworten, in dem an die Aktion von Hand ausführt und mit dem Recorder aufzeichnet.
Dann kannst du dir die erzeugten Befehle im Codefenster anschauen.
Gruß Daniel

Anzeige
AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 09:56:33
Werner
Hallo Jan,
Dim x&
For x = 1 To Worksheets.Count
Worksheets(x).Range("Q14") = "Hallo World"
Woksheets(x).Columns("Q:Q").ColumnsWidth = 10
Next
Gruß Werner

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 10:08:38
Jan
Danke Werner,
es klappt. Habe etwas gebastelt wg. "Column(s)Width".
Einen schönen Tag.
Jan

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 11:14:00
Werner
Hallo Jan,
sorry für das s das mir da reingerutscht ist aber du bist ja selbst drauf gekommen.
Mit der Codezeile
Worksheets(x).Columns("Q:Q").AutoFit
kannst du das natürlich auch so einstellen, dass sich die Spaltenbreite automatisch an die Textlänge anpasst.
Gruß Werner

Anzeige
AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 11:28:58
Jan
Hallo Werner,
Oh, der Tipp ist prima. Danke Dir, das hilft mir.
Gruß Jan

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 12:45:45
Werner
Hallo Jan,
hier noch eine Version mit einer Inputbox für die Eingabe des Textes.
Dim x&
Dim strName As String
strName = InputBox("Bitte den Text eingeben:")
If strName = Falsch Then Exit Sub
For x = 1 To Worksheets.Count
Worksheets(x).Range("Q14") = strName
Worksheets(x).Columns("Q:Q").AutoFit
Next
Wobei hier die Variable strName als String (Textfolge) dimensioniert ist. Solltes du auch Zahlen eingeben um dann mit diesen weiter zu rechnen dann müsste die Variable strName als Variant dimensioniert werden sonst funktioniert es nicht.
Gruß Werner

Anzeige
AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 13:09:59
Jan
Hallo Werner,
das ist noch eine Erleichterung. Ich denke, dass ich > Falsch Danke und Gruß
Jan

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 10:10:03
JoWE
Hallo Renate,
oder auch so: 
Sub multifill()
Sheets("Tabelle1").Range("Q14") = "Excellent!"
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).FillAcrossSheets Sheets("Tabelle1").Range( _
"Q141")
End Sub

Gruß
Jochen

AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 10:21:31
Jan
Hallo Jochen,
lese ich den Code richtig, dass ich dann sämtliche Tabellenblätter einzeln aufführen müsste? Wenn ja, ist mir die Schleife schon lieber, denn es sind deren sehr viele. Außerdem ist die Sache im Fluss, es kommen ständig welche dazu bzw. es fallen welche weg.
Schöne Grüße
Renate

Anzeige
AW: Per Makro Texte in Tabellenfelder füllen
06.08.2014 10:54:13
JoWE
Hallo Renate,
ja - Du liest richtig.
Unter den jetzt genannten Voraussetzungen ist die For-Next-Schleife tatsächlich die bessere Lösung.
Gruß
Jochen

303 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
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
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
6
3
4
5
5
3
3
9
10
4
2
3
3
7
2
14
5
2
5
1
7
2