Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1180to1184
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
Inhaltsverzeichnis

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?

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

Betreff
Benutzer
Anzeige
AW: Daten exportieren
07.10.2010 11: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 17: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?
AW: Daten exportieren
07.10.2010 12: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 14:04:55
Peter
Hallo Welga,
danke für den Code. Aber wie muss ich die Variable ThisWorkbook.Sheets definieren damit es funktioniert?
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige