VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
String-Variablen entsprechenden Wert aus UserForm zuweisen	04.01.2012 13:39:49	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 09:52:04	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 10:48:09	Gast42562
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 10:50:43	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 13:04:21	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 23:12:43	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 13:29:00	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 13:55:01	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 14:35:27	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	23.01.2012 21:31:18	Heiko

Ansicht des Beitrags:

Von:
Heiko

Datum:
05.01.2012 13:04:21

Views:
1072

Rating:

Antwort:

Thema:
String-Variablen entsprechenden Wert aus UserForm zuweisen

Hallo Newbie,

Das bekommen wir schon hin. Ich bin davon ausgegangen, das die Name-Eigenschaft der 12 Textfelder "D1_1_1" usw. lautet und habe dir ein entsprechendes Beispiel geschrieben, wie du die dbl-Zahl aus den Textfeldern auslesen kannst. Wenn ich das richtig sehe, brauchst du Sub Laengenaenderung garnicht. Na probier mal. Du kannst dir den Code sicher an deine Aufgabe anpassen.

Viel Erfolg

Heiko

Private Sub mach_Click()

  Dim i As Integer, j As Integer
  Dim strLaenge As String
  Dim dblLaenge As String
  Dim strSkizze As String
  Dim ctl As MSForms.Control
  
  For j = 1 To 2
    For i = 1 To 6
    
      strLaenge = "D" & CStr(i) & "_1_" & CStr(j)
      strSkizze = "D" & CStr(i) & "_1@_" & CStr(j)
      
      'Wert aus Userform holen
      For Each ctl In Me.Controls
        If ctl.Name = strLaenge Then
          dblLaenge = ctl.Value
        End If
      Next ctl
      
      'Längenänderung
      Set myDimension = Part.Parameter(strSkizze)
      myDimension.SystemValue = dblLaenge / 1000
    
    Next i
  Next j
  
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
String-Variablen entsprechenden Wert aus UserForm zuweisen	04.01.2012 13:39:49	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 09:52:04	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 10:48:09	Gast42562
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 10:50:43	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 13:04:21	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	05.01.2012 23:12:43	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 13:29:00	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 13:55:01	Heiko
String-Variablen entsprechenden Wert aus UserForm zuweisen	06.01.2012 14:35:27	Newbie
String-Variablen entsprechenden Wert aus UserForm zuweisen	23.01.2012 21:31:18	Heiko