Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
1336to1340
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

In neues erstelltes Tabellenblatt Werte einlesen

In neues erstelltes Tabellenblatt Werte einlesen
11.11.2013 14:26:43
Maen
Servus miteinander,
für mein Programm erstelle ich eine Kopie eines Tabellenblatts "Vorlage" die dann gefüllt werden soll mit Werte, die aus einer Userform ausgehen.. Leider stoße ich bei der neues Definition des Tabellenblatts an meine Grenzen. Kopieren funktioniert... das einlesen nicht. Lieben Dank für eure Hilfe im voraus
Private Sub OKButton_Click()
If TextBoxRsi.Value = "" Then
MsgBox "Bitte Wärmeübergang innen eintragen", 16, "Fehlermeldung"
BauteilNeu.TextBoxRsi.SetFocus
Exit Sub
End If
' neues Tabellenblatt nach Fertigstellen des Bauteils anlegen
Dim NewName As String
Worksheets("Vorlage").Copy Before:=ActiveSheet
ActiveSheet.Name = TextBoxName
Set wsNeu = AcitveSheet
'Werte in Neues Rechenblatt exportieren
wsNeu.Cells(2, 27).Value = TextBoxRsi.Value
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In neues erstelltes Tabellenblatt Werte einlesen
11.11.2013 16:12:53
fcs
Hallo Maen,
du solltest alle Variablen deklarieren und für alle Module als 1. Zeile
Option Explicit
verwenden. Dies kannst du für neue Module im VBA-Editor unter Extras-Optionen-Editor "Variablendeklaration erforderlich" markieren fest vorgeben. So erkennt der Debugger ggf. nicht deklarierte Variablen/Tippfehler.
Ansonsten hast du noch einen Tippfehler eingebaut.
Gruß
Franz
Private Sub OKButton_Click()
Dim wsNeu As Worksheet                        'Alle Variablen deklarieren!
Dim NewName As String
If TextBoxRsi.Value = "" Then
MsgBox "Bitte Wärmeübergang innen eintragen", 16, "Fehlermeldung"
BauteilNeu.TextBoxRsi.SetFocus
Exit Sub
End If
' neues Tabellenblatt nach Fertigstellen des Bauteils anlegen
Worksheets("Vorlage").Copy Before:=ActiveSheet
ActiveSheet.Name = TextBoxName
Set wsNeu = ActiveSheet                             'hier war ein Tippfehler
'Werte in Neues Rechenblatt exportieren
wsNeu.Cells(2, 27).Value = TextBoxRsi.Value
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige