Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

UserForm Werte in bestimmtes Tabellenblatt schreiben dieses aber nicht anzeigen?

Frage Microsoft Microsoft Office

Mitglied: DerParte

DerParte (Level 1) - Jetzt verbinden

03.12.2007, aktualisiert 04.12.2007, 5804 Aufrufe, 2 Kommentare

Moin,

ich möchte gerne das die Werte aus einer UserForm in das Tabellenblatt Mitglieder übernommen werden, das Tabellenblatt aber nicht angezeigt wird.

Der Button Code sieht so aus:

Private Sub CmdB_Anlegen_Click()
Worksheets("Fahrzeuge").Activate
Dim lastrow, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1

'Zähler für die Fahrzeugnummer
autozaehler = ([a65536].End(xlUp).Row + 1) - 1

' Daten aus der Fahrzeug_Anlegen übertragen

Cells(lastrow, 1) = autozaehler
Cells(lastrow, 2) = Me.TB_Autotyp.Value
Cells(lastrow, 3) = Me.TB_Stundenpreis1.Value
Cells(lastrow, 4) = Me.TB_Stundenpreis2.Value
Cells(lastrow, 5) = Me.TB_Stundenpreis3.Value
Cells(lastrow, 6) = Me.TB_Tagestarif.Value
Cells(lastrow, 7) = Me.TB_Wochenendgutschrift.Value
Cells(lastrow, 8) = Me.TB_Kilometertarif.Value
Cells(lastrow, 9) = Me.TB_Anschaffungspreis.Value
Cells(lastrow, 10) = Me.TB_Anschaffungsdatum.Value
Cells(lastrow, 11) = Me.TB_NächsteHU.Value
Cells(lastrow, 12) = Me.TB_NächsteWartung.Value

' Datenfelder löschen
With Me
.TB_Autonummer.Value = autozaehler + 1
.TB_Autotyp.Value = ""
.TB_Stundenpreis1.Value = ""
.TB_Stundenpreis2.Value = ""
.TB_Stundenpreis3.Value = ""
.TB_Tagestarif.Value = ""
.TB_Wochenendgutschrift.Value = ""
.TB_Kilometertarif.Value = ""
.TB_Anschaffungspreis.Value = ""
.TB_Anschaffungsdatum.Value = ""
.TB_NächsteHU.Value = ""
.TB_NächsteWartung.Value = ""
End With
End Sub
Mitglied: bastla
03.12.2007 um 14:36 Uhr
Hallo DerParte!

Versuch es so:
01.
Private Sub CmdB_Anlegen_Click() 
02.
With Worksheets("Fahrzeuge") 
03.
	Dim lastrow As Integer, i As Integer 
04.
 
05.
	' Letzte Zeile suchen 
06.
	lastrow = .[a65536].End(xlUp).Row + 1 
07.
 
08.
	'Zähler für die Fahrzeugnummer 
09.
	autozaehler = lastrow - 1 
10.
 
11.
	' Daten aus der Fahrzeug_Anlegen übertragen 
12.
	.Cells(lastrow, 1) = autozaehler 
13.
	.Cells(lastrow, 2) = Me.TB_Autotyp.Value 
14.
	.Cells(lastrow, 3) = Me.TB_Stundenpreis1.Value 
15.
	.Cells(lastrow, 4) = Me.TB_Stundenpreis2.Value 
16.
	.Cells(lastrow, 5) = Me.TB_Stundenpreis3.Value 
17.
	.Cells(lastrow, 6) = Me.TB_Tagestarif.Value 
18.
	.Cells(lastrow, 7) = Me.TB_Wochenendgutschrift.Value 
19.
	.Cells(lastrow, 8) = Me.TB_Kilometertarif.Value 
20.
	.Cells(lastrow, 9) = Me.TB_Anschaffungspreis.Value 
21.
	.Cells(lastrow, 10) = Me.TB_Anschaffungsdatum.Value 
22.
	.Cells(lastrow, 11) = Me.TB_NächsteHU.Value 
23.
	.Cells(lastrow, 12) = Me.TB_NächsteWartung.Value 
24.
End With 
25.
 
26.
' Datenfelder löschen 
27.
With Me 
28.
	.TB_Autonummer.Value = autozaehler + 1 
29.
	.TB_Autotyp.Value = "" 
30.
	.TB_Stundenpreis1.Value = "" 
31.
	.TB_Stundenpreis2.Value = "" 
32.
	.TB_Stundenpreis3.Value = "" 
33.
	.TB_Tagestarif.Value = "" 
34.
	.TB_Wochenendgutschrift.Value = "" 
35.
	.TB_Kilometertarif.Value = "" 
36.
	.TB_Anschaffungspreis.Value = "" 
37.
	.TB_Anschaffungsdatum.Value = "" 
38.
	.TB_NächsteHU.Value = "" 
39.
	.TB_NächsteWartung.Value = "" 
40.
End With 
41.
End Sub
Noch eine Anmerkung: Mit
01.
Dim lastrow, i As Integer
erhält die Variable "lastrow" den Typ "Variant" und nur "i" den Typ "Integer" - eine derartige Schreibweise funktioniert nur in VB (ohne "A" und erst ab .NET).

Grüße
bastla
Bitte warten ..
Mitglied: DerParte
04.12.2007 um 08:01 Uhr
Jo vielen Dank Bastla!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Werte in verschiedenen Tabellenblättern abgleichen und ggf. diese Werte einfärben
Frage von frosch44Microsoft Office3 Kommentare

HAllo, ich bitte um Entschuldigung, aber der erste Denk-Ansatz war meinerseits falsch ist folgendes möglich: Ich habe Werte (einmalig ...

Microsoft Office
2 Fragen in Infopath2010 (Wert aufsplitten und einen Satzt schreiben bei einem bestimmten wert)
gelöst Frage von coolkaiserABCMicrosoft Office12 Kommentare

Hallo Ich muss in Infopath eine Formularvorlage(*.xsn) für xml Dateien von einem Bestellprogram erstellen die später auch in xml ...

Perl
Wert in Datei schreiben
gelöst Frage von infowarsPerl

Moin, ich versuche gerade eine Möglichkeit zu finden mit der User über den Browser sich bzw. ihre IP freischalten ...

Microsoft Office
Excel 2013 Werte aus Dateien in ein Tabellenblatt zusammenführen
Frage von DerGueMicrosoft Office

Hallo zusammen, vielleicht kann mir hier jem. helfen. Ich habe ca. 50 gleich aufgebaute Dateien (Einsatzlisten) in einem Ordner ...

Neue Wissensbeiträge
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 8 StundenInternet3 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registierunf von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 15 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 1 TagWindows 104 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 1 TagSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless18 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement17 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...