AW: Eingabe von UserForm an Modul
09.11.2017 15:42:11
UserForm
Hi Werner,
bisher habe ich alles in eine Funktion geschrieben. Das Problem ist, dass meine tatsächliche Funktion riesig ist und ich deshalb die Übersicht verliere. :/
Hier mal das Click Ereignis von einer Userform. Davon habe ich ca. 7 Stück.
Private Sub Button_Take_Click()
''Die Anzahl der Anlagen: y bestimmt wie viele Zeilen in der Tabelle erstellt werden. Das _
Programm geht den Code also
'y mal durch und erstellt dabei y Zeilen. Es wird automatisch jeder Zeile die richtige ID _
zugewiesen
Dim last As Integer
Dim i As Integer
For i = 1 To y
'Allgemein
'last als Variable für die erste unbeschriebene Zeile in Spalte 1. Da ID in Spalte 1
'und diese jede "Runde" erhöht wird => keine Verschiebungen
last = Sheets("Gutachten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheets("Gutachten").Cells(last, 1).Value = last - 1
Sheets("Gutachten").Cells(last, 2).Value = Gutachten.Projektnummer.Value
Sheets("Gutachten").Cells(last, 3).Value = Gutachten.NameWindpark.Value
Sheets("Gutachten").Cells(last, 4).Value = y
Sheets("Gutachten").Cells(last, 5).Value = Gutachten.KBS.Value
Sheets("Gutachten").Cells(last, 9).Value = Gutachten.Gutachter.Value
Sheets("Gutachten").Cells(last, 10).Value = Gutachten.Dokumentenart.Value
Sheets("Gutachten").Cells(last, 12).Value = Gutachten.DatumdesBerichts.Value
Sheets("Gutachten").Cells(last, 13).Value = Gutachten.Berichtsnummer.Value
Sheets("Gutachten").Cells(last, 14).Value = Gutachten.Link.Value
Sheets("Gutachten").Cells(last, 15).Value = Gutachten.Quelle.Value
Sheets("Gutachten").Cells(last, 17).Value = Gutachten.Vergleichsanlagen.Value
Sheets("Gutachten").Cells(last, 18).Value = Gutachten.Windmessung.Value
Sheets("Gutachten").Cells(last, 16).Value = Gutachten.Kommentar.Value
'Geländemodell IF
Dim Geländemodell As String
If GeländemodellJa = True Then
Geländemodell = "Ja"
Else:
Geländemodell = "Nein"
End If
Sheets("Gutachten").Cells(last, 31).Value = Geländemodell
Sheets("Gutachten").Cells(last, 32).Value = Gutachten.Auflösung.Value
Sheets("Gutachten").Cells(last, 33).Value = Gutachten.GeländemodellLink.Value
'Normkonformität IF
Dim Normkonformität As String
If NormkonformitätJa = True Then
Normkonformität = "Ja"
Else:
Normkonformität = "Nein"
End If
Sheets("Gutachten").Cells(last, 34).Value = Normkonformität
'Grunddaten
Sheets("Gutachten").Cells(last, 11).Value = Gutachten.Controls("Kürzel" & i).Value
Sheets("Gutachten").Cells(last, 6).Value = Gutachten.Controls("XKoordinate" & i).Value
Sheets("Gutachten").Cells(last, 7).Value = Gutachten.Controls("YKoordinate" & i).Value
Sheets("Gutachten").Cells(last, 19).Value = Gutachten.Controls("KommentarzuVarianten" & i). _
Value
'technische Beschreibung
Sheets("Gutachten").Cells(last, 20).Value = Gutachten.Controls("Anlagentyp" & i).Value
Sheets("Gutachten").Cells(last, 21).Value = Gutachten.Controls("LinkAnlagentyp" & i).Value
Sheets("Gutachten").Cells(last, 22).Value = Gutachten.Controls("Nabenhöhe" & i).Value
Sheets("Gutachten").Cells(last, 23).Value = Gutachten.Controls("LinktechnischeBeschreibung" _
& i).Value
'Wind
Sheets("Gutachten").Cells(last, 24).Value = Gutachten.Controls("VWNH" & i).Value
Sheets("Gutachten").Cells(last, 25).Value = Gutachten.Controls("AWeibull" & i).Value
Sheets("Gutachten").Cells(last, 26).Value = Gutachten.Controls("KWeibull" & i).Value
Sheets("Gutachten").Cells(last, 27).Value = Gutachten.Controls("KommentarWeibull" & i). _
Value
Sheets("Gutachten").Cells(last, 28).Value = Gutachten.Controls("Hauptwindrichtung" & i). _
Value
Sheets("Gutachten").Cells(last, 29).Value = Gutachten.Controls("Hauptenergierichtung" & i). _
Value
Sheets("Gutachten").Cells(last, 30).Value = Gutachten.Controls("KommentarWindverteilung" & _
i).Value
'Energie
Sheets("Gutachten").Cells(last, 35).Value = Gutachten.Controls("AEPWEA" & i).Value
Sheets("Gutachten").Cells(last, 36).Value = Gutachten.Controls("WirkungsgradWEA" & i).Value
Sheets("Gutachten").Cells(last, 37).Value = Gutachten.AEPPark.Value
Sheets("Gutachten").Cells(last, 38).Value = Gutachten.WirkungsgradPark.Value
Sheets("Gutachten").Cells(last, 39).Value = Gutachten.Controls("KommentarErtrag" & i).Value
'Zusatz
Sheets("Gutachten").Cells(last, 40).Value = ErstellerGutachten
Sheets("Gutachten").Cells(last, 41).Value = Date
Dim Name As String
Name = Gutachten.Gutachter.Value & " " & Gutachten.Dokumentenart.Value & " " & Gutachten.Kü _
rzel1.Value
Sheets("Gutachten").Cells(last, 8).Value = Name
Next i
Call Speichern
End Sub