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
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus Textfeld kopieren

Text aus Textfeld kopieren
18.06.2003 14:56:09
Stefan
Hallo,

neben meinem Problem von eben habe ich noch eine Frage:
Wie kann ich makrogesteuert den Text eines Textfeldes von einer anderen Datei in die momentan aktive Datei kopieren?
Dabei ist mir aufgefallen, dass bei der Aufzeichnung des Makro nun der Inhalt kopiert wird. Ändert sich der Inhalt, welchen ich nun kopieren will, so schreibt er bei Ausführen des Makro den nun "alten" Inhalt wieder hin, weil dieser in das Makro aufgenommen wurde.
Kann ich in den Makro so etwas wie STG & A um alles zu markieren einfügen?

Danke für die Hilfe!!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Text aus Textfeld kopieren
18.06.2003 14:58:06
Mike E.

Hallo,

so in etwa:

ActieSheet.Cells(1,1) = TextBox1.Value

Gruß
Mike

Re: Text aus Textfeld kopieren
18.06.2003 14:59:37
Stefan

Danke, werde ich ausprobieren

Re: Text aus Textfeld kopieren
18.06.2003 15:11:43
Stefan

Hi Mike,

habe ich versucht. Es hat leider nicht geklappt.
Mit dem alten Makro hat es überhaupt nicht funktioniert:
Sub Makro3()
'
' Makro3 Makro
' Makro am 18.06.2003 von Holtkamp aufgezeichnet
'

'
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = "klsjghlkdjghdksljghdksljfghkldsghlkdshg"
With Selection.Characters(Start:=1, Length:=39).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C28").Select
ActiveSheet.Paste
Range("D34").Select
End Sub

Aber auch der neue haut nicht so richtig hin:

Sub Makro3()
'
' Makro3 Makro
' Makro am 18.06.2003 von Holtkamp aufgezeichnet
'

'
Range("F22").Select
ActieSheet.Cells(1, 1) = TextBox1.Value

Range("C28").Select
ActiveSheet.Paste
Range("D34").Select
End Sub

Kannst du mir da helfen?

Danke,
Stefan

Anzeige
Re: Text aus Textfeld kopieren
18.06.2003 15:18:28
Mike E.

Hallo Stefan,

was genau möchtest du erreichen? dass in einer bestimmten Zelle (z.B. A1) der Wert aus TextBox1 steht und dann möchtest du das Ergebnis gleichzeitig (wie deiner Aufzeichnung zu entnehmen ist) in C28 schreiben?

Dann ist es so richtig:

Sub Test()

Cells(1,1) = sheets("Tabelle1").TextBox1.Value
Cells(28,3) = sheets("Tabelle1").TextBox1.Value

~end~

Ist es das?

Gruß
Mike


Re: Text aus Textfeld kopieren
18.06.2003 15:28:03
Stefan

Hi Mike,

eigentlich möchte ich nur den Text aus einer Textbox in eine ander Zelle oder eine andere Textbox kopieren. Es handelt sich hierbei allerdings um verschiedene Dateien, so das der Weg Textbox - Zelle der einfachere ist um den Text danach auch weiter zu verarbeiten.

Ich versuchs noch mal,

Stefan

Anzeige
Re: Text aus Textfeld kopieren
18.06.2003 15:29:47
Mike E.

Hallo Stefan,

das Kopieren in eine andere TextBox funktioniert genauso:

Sheets(1).TextBox2.Value = Sheets(2).TextBox1.Value

Gruß
Mike

Re: Text aus Textfeld kopieren
18.06.2003 16:12:49
Stefan

Hi Mike,

es haut auch einfach nicht hin. Ich habe mal deinen Vorschlag in den Makro hinein kopiert:
Sub Makro6()
'
' Makro6 Makro
' Makro am 18.06.2003 von Holtkamp aufgezeichnet
'

'
Range("E19").Select
' ActiveSheet.Shapes("Text Box 4").Select
ActivSheet.Cells(1, 1) = TextBox4.Value
With Selection.Characters(Start:=1, Length:=200000).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D22").Select
End Sub


Hier bekommeich aber immer den Laufzeitfehler 424, Objekt fehlt.

Keine Ahnung was das heißt. Ich werde mir mal was anders überlegen.

Ciao,
Stefan

Anzeige
Re: Text aus Textfeld kopieren
19.06.2003 15:22:32
Mike E.

Moin Stefan,

klar, dass das Object fehlt.
Wo befindet sich die TextBox? Auf einem Sheet? Wenn ja, auf welchem? (Bei WorkSheets(1): = WorkSheets(1).TextBox1.Value)
Auf einer UserForm? Wenn ja, wie heißt die?
(Bei UserForm1 : = UserForm1!TextBox1.Value)
Heißt die TextBox überhaupt TextBox1 oder hast du sie umbenannt?

Gruß
Mike

304 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge

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
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5