Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 5802 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
Button für Wechseln zwischen den Tabellenblättern (6)

Frage von lupi1989 zum Thema Microsoft Office ...

Batch & Shell
gelöst Wie speichere ich von einer "Grundbatchdatei" einen bestimmten Wert? (5)

Frage von IchBins01000010 zum Thema Batch & Shell ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(1)

Information von DerWoWusste zum Thema Microsoft ...

Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(6)

Information von LordGurke zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (15)

Frage von Lynkon zum Thema TK-Netze & Geräte ...