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

Daten exportieren

Forumthread: Daten exportieren

Daten exportieren
Peter
Hallo,
ich würde gerne die Ergebnisse beider Textboxen nach Excel exportieren.
Option Explicit 
Private Sub Command1_Click()
Do
Text2.Text = Text1.Text
Text1.Text = Text1.Text + 1
Loop Until Text2.Text = 10
End Sub

Kann mir jemand sagen wie ich sowas anstelle?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten exportieren
07.10.2010 13:58:54
abu
Hallo Peter,
probier das mal:
With Sheets("Tabelle1")
.Cells(1,1) = Text1.Text ---> =Zelle A1
.Cells(1,2) = Text2.Text ---> =Zelle A2
End With
Gruss
Abu
AW: Daten exportieren
07.10.2010 19:40:14
Peter
Wenn ich das so mache, kommt immer die Fehlermeldung:
Sub oder Function nicht definiert
Und die Zeile With Sheets wird markiert.
Was geht da?
Anzeige
AW: Daten exportieren
07.10.2010 14:12:42
welga
Hallo,
Private Sub Command1_Click()
For i = 1 To 10
TextBox1 = i
TextBox2 = TextBox1
ThisWorkbook.Sheets(2).Cells(i, 1).Value = TextBox2
Next i
End Sub

Gruß
AW: Daten exportieren
08.10.2010 16:04:55
Peter
Hallo Welga,
danke für den Code. Aber wie muss ich die Variable ThisWorkbook.Sheets definieren damit es funktioniert?
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum