Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umstellung auf 64 Bit

Umstellung auf 64 Bit
tursiops
Hallo!
Ich bin gerade dabei unsere Wettbewerbsdatei für ein Volksschwimmen in diesem Jahr vorzubereiten. Die EDV wurde inzwischen auf 64-Bit umgestellt, das Script leider nur für 32-Bit geschrieben. Ich bin nicht mehr ganz auf der Höhe, habe mich lange nicht mehr mit VBA beschäftigt. Ich hoffe, Ihr könnt mir helfen. Hier der Code, es geht um einen Formularcode für eine Eingabemaske:
Option Explicit
Dim rngFind As Range
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal _
hwnd As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000
Private hWndForm As Long
Private bCloseBtn As Boolean 

Private Sub CommandButton3_ändern_Click()
Sheets("Daten").Select
ActiveSheet.Unprotect Password:="dolphin"
'Neuen Datensatz anlegen
Dim letzte_Zeile As Long
With Worksheets("Daten")
'Die letzte beschrieben Zeile in Spalte A ermitteln
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(letzte_Zeile, 1) = TextBox1.Text 'ID
.Cells(letzte_Zeile, 2) = TextBox2.Text 'Nachname
.Cells(letzte_Zeile, 3) = TextBox3.Text 'Vorname
.Cells(letzte_Zeile, 8) = TextBox4.Text 'Geburtsdatum
.Cells(letzte_Zeile, 5) = TextBox5.Text 'Adresse
.Cells(letzte_Zeile, 6) = TextBox6.Text 'PLZ
.Cells(letzte_Zeile, 7) = TextBox7.Text 'Ort
.Cells(letzte_Zeile, 4) = TextBox8.Text 'beschäftigt seit
.Cells(letzte_Zeile, 9) = TextBox9.Text 'Telefon
.Cells(letzte_Zeile, 10) = TextBox10.Text 'Mobil
.Cells(letzte_Zeile, 11) = TextBox11.Text 'E-MAil
.Cells(letzte_Zeile, 19) = TextBox12.Text 'eingearbeitet FS
.Cells(letzte_Zeile, 20) = TextBox13.Text 'eingearbeitet Bar
.Cells(letzte_Zeile, 21) = TextBox14.Text 'Konfektionsgröße
.Cells(letzte_Zeile, 22) = TextBox15.Text 'VS Tauglich
.Cells(letzte_Zeile, 25) = TextBox16.Text 'Wochenstunden
.Cells(letzte_Zeile, 26) = TextBox17.Text 'Kostenstelle
.Cells(letzte_Zeile, 27) = TextBox18.Text 'Stunden pro Monat
.Cells(letzte_Zeile, 28) = TextBox19.Text 'Überstunden
.Cells(letzte_Zeile, 24) = TextBox20.Text 'Bermerkungen
.Cells(letzte_Zeile, 29) = TextBox21.Text 'Alter
.Cells(letzte_Zeile, 12) = ComboBox1.Text 'Bereich 1
.Cells(letzte_Zeile, 13) = ComboBox2.Text 'Bereich 2
.Cells(letzte_Zeile, 14) = ComboBox3.Text 'Bereich 3
.Cells(letzte_Zeile, 15) = ComboBox5.Text 'Sprache 1
.Cells(letzte_Zeile, 16) = ComboBox6.Text 'Sprache 2
.Cells(letzte_Zeile, 17) = ComboBox7.Text 'Sprache 3
.Cells(letzte_Zeile, 18) = ComboBox8.Text 'Sprache 4
End With
ClearAll
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
dolphin"
ActiveSheet.EnableSelection = xlUnlockedCells
Unload grüne_Welle_1
Application.Run "UF_Show"
End Sub


Private Sub CommandButton3_Click()
Sheets("Daten").Select
ActiveSheet.Unprotect Password:="dolphin"
'Neuen Datensatz anlegen
Dim letzte_Zeile As Long
With Worksheets("Daten")
'Die letzte beschrieben Zeile in Spalte A ermitteln
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(letzte_Zeile, 1) = TextBox1.Text 'ID
.Cells(letzte_Zeile, 2) = TextBox2.Text 'Nachname
.Cells(letzte_Zeile, 3) = TextBox3.Text 'Vorname
.Cells(letzte_Zeile, 8) = TextBox4.Text 'Geburtsdatum
.Cells(letzte_Zeile, 5) = TextBox5.Text 'Adresse
.Cells(letzte_Zeile, 6) = TextBox6.Text 'PLZ
.Cells(letzte_Zeile, 7) = TextBox7.Text 'Ort
.Cells(letzte_Zeile, 4) = TextBox8.Text 'beschäftigt seit
.Cells(letzte_Zeile, 9) = TextBox9.Text 'Telefon
.Cells(letzte_Zeile, 10) = TextBox10.Text 'Mobil
.Cells(letzte_Zeile, 11) = TextBox11.Text 'E-MAil
.Cells(letzte_Zeile, 19) = TextBox12.Text 'eingearbeitet FS
.Cells(letzte_Zeile, 20) = TextBox13.Text 'eingearbeitet Bar
.Cells(letzte_Zeile, 21) = TextBox14.Text 'Konfektionsgröße
.Cells(letzte_Zeile, 22) = TextBox15.Text 'VS Tauglich
.Cells(letzte_Zeile, 25) = TextBox16.Text 'Wochenstunden
.Cells(letzte_Zeile, 26) = TextBox17.Text 'Kostenstelle
.Cells(letzte_Zeile, 27) = TextBox18.Text 'Stunden pro Monat
.Cells(letzte_Zeile, 28) = TextBox19.Text 'Überstunden
.Cells(letzte_Zeile, 24) = TextBox20.Text 'Bermerkungen
.Cells(letzte_Zeile, 29) = TextBox21.Text 'Alter
.Cells(letzte_Zeile, 12) = ComboBox1.Text 'Altersklasse
.Cells(letzte_Zeile, 13) = ComboBox2.Text 'Bereich 2
.Cells(letzte_Zeile, 14) = ComboBox3.Text 'Bereich 3
.Cells(letzte_Zeile, 15) = ComboBox5.Text 'Sprache 1
.Cells(letzte_Zeile, 16) = ComboBox6.Text 'Sprache 2
.Cells(letzte_Zeile, 17) = ComboBox7.Text 'Sprache 3
.Cells(letzte_Zeile, 18) = ComboBox8.Text 'Sprache 4
End With
ClearAll
Sheets("Daten").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
dolphin"
ActiveSheet.EnableSelection = xlUnlockedCells
Unload grüne_Welle_1
End Sub

Private Sub CommandButton5_Click()
If TextBox1.Text = "" Then
Unload grüne_Welle_1
Exit Sub
Else
If MsgBox("Den angezeigten Datensatz speichern ?", 36, "Sicherheitsabfrage") = vbYes Then
CommandButton3_Click
End If
Unload grüne_Welle_1
End If
End Sub


Private Sub CommandButton4_Click()
Dim a As Integer
Dim msg
'Datensatz löschen
a = Range(rngFind.Address).Row
If MsgBox("    Datensatz wirklich löschen", vbYesNo) = vbNo Then
Exit Sub
Else
Rows(a).Delete
End If
ClearAll
TextBox1.SetFocus
End Sub

Private Sub CommandButton6_Click()
Sheets("Daten").Select
ActiveSheet.Unprotect Password:="dolphin"
Dim aStr As Byte
If TextBox1.Text = "" Then
ClearAll
TextBox1.SetFocus
Exit Sub
Else
aStr = MsgBox("     Möchten Sie den angezeigten Datensatz" & vbCrLf & vbCrLf & vbTab & _
"- vorher speichern (Ja)" & vbCrLf & vbCrLf & vbTab & _
"- nur leeren (Nein)" & vbCrLf & vbCrLf & vbTab & _
"- nicht unternehmen (Abbrechen)", vbYesNoCancel, "Sicherheitsabfrage")
If aStr = vbYes Then
CommandButton3_ändern_Click
ElseIf aStr = vbNo Then
ClearAll
Me.TextBox1 = WorksheetFunction.Max(Range("a:a")) + 1
Else
TextBox1.SetFocus
End If
TextBox1.SetFocus
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
dolphin"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub


Public Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCloseBtn = False
SetUserFormStyle
ComboBox2.RowSource = "'Info'!B2:B9"
ComboBox3.RowSource = "'Info'!C2:C9"
ComboBox5.RowSource = "'Info'!E2:E9"
ComboBox6.RowSource = "'Info'!E2:E9"
ComboBox7.RowSource = "'Info'!E2:E9"
ComboBox8.RowSource = "'Info'!F2:F9"
Me.TextBox1 = WorksheetFunction.Max(Range("a:a")) + 1
End Sub



Private Sub SetUserFormStyle()

Dim frmStyle As Long

If hWndForm = 0 Then Exit Sub

frmStyle = GetWindowLong(hWndForm, GWL_STYLE)

If bCloseBtn Then

frmStyle = frmStyle Or WS_SYSMENU

Else

frmStyle = frmStyle And Not WS_SYSMENU

End If

SetWindowLong hWndForm, GWL_STYLE, frmStyle

DrawMenuBar hWndForm

End Sub

Private Sub optCloseOn_Click()
bCloseBtn = True
cmdBeenden.Cancel = True
SetUserFormStyle
End Sub

Private Sub optCloseOff_Click()
bCloseBtn = False
cmdBeenden.Cancel = False
SetUserFormStyle
End Sub

Sub ClearAll()
Dim C As Integer
On Error Resume Next
For C = 1 To 8
Me.Controls("ComboBox" & CStr(C)).Text = ""
Next C
For C = 1 To 20
Me.Controls("TextBox" & CStr(C)).Text = ""
Next C
Image2.Picture = LoadPicture("")
End Sub 
Private Sub UserForm_Activate()
Sheets("Info").Select
Dim lZeile  As Long
Dim lCoBox  As Long
With Worksheets("Info")
With Me.ComboBox1
.ColumnCount = 3
.ColumnWidths = "1 cm; 1 cm; 1 cm"
For lZeile = 1 To Range("A65536").End(xlUp).Row
.AddItem " "
.List(lCoBox, 0) = Range("G" & lZeile).Value
.List(lCoBox, 1) = Range("H" & lZeile).Value
.List(lCoBox, 2) = Range("I" & lZeile).Value
lCoBox = lCoBox + 1
Next lZeile
End With
End With
Sheets("Daten").Select
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim iAlter  As Integer
Dim iLiBo   As Integer
If Me.TextBox4.Value  "" Then
If IsDate(Me.TextBox4.Value) Then
If (Month(CDate(TextBox22.Value))  Day(CDate(TextBox22.Value)) Then
iAlter = (Year(Date) - _
Year(CDate(TextBox4.Value))) - 1
Else
iAlter = Year(Date) - _
Year(CDate(TextBox4.Value))
End If
Me.TextBox21.Value = iAlter
If iAlter  99 Then Exit Sub
For iLiBo = 0 To Me.ComboBox1.ListCount
If iAlter >= Me.ComboBox1.List(iLiBo, 1) And _
iAlter
Gruß tursiops

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Umstellung auf 64 Bit
14.08.2011 01:22:18
Josef

Hallo ?,
dazu brauchst du eigentlich nur den Deklarationsteil anpassen.
#If Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName _
  As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As _
  Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As _
  Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
#End If


« Gruß Sepp »

Anzeige

58 Forumthreads zu ähnlichen Themen

läuft excel 2003 unter Windows 7 64 bit?
Nibio

Hallo Excel Freunde,
ich hätte eine Frage, läuft Excel 2003 unter 64 bit Betriebssystem?
Im Interent habe ich gelesen daß es gehen soll, aber es ist nicht klar wie.
Für mich wäre zu viel Aufwand auf Excel 2010 umzusteigen, leider.
Aber ich möchte von 32 bit auf 64 bit umsteigen,...
11.09.2011 18:24:27
Thread-ID: 1229373
2 Beiträge
Anzeige
Probleme mit Umsetzung auf 64 Bit
Thorsten

Hallo zusammen,
ich habe vor einiger Zeit ein umfangreiches Tool unter Excel 2007 (32 Bit) in VBA entwickelt, u.a. mit FTP-Zugriffen. Den Code für die FTP-Funktionalität habe ich damals hier 1:1 entnommen:
http://www.office-loesung.de/ftopic154081_0_0_asc.php
Funktionierte bisher a...
28.02.2017 21:25:36
Thread-ID: 1544750
4 Beiträge
fehler von 32 auf 64 Bit
32

Hallo Excelgemeinde,
habe ein Makro dies ist mit 32 Bit geschrieben habe ich selbst habe jedoch 64 Bit
Das Makro Private Sub cmdPDF_Click() 'Link in PDF-Spalte öffnen Dim Zeile As Long Dim Zelle As Range Dim pdfFile As String With Me.ListBox1 If .ListIndex -1 Then Zeile = .List(.ListI...
04.01.2018 18:01:53
Thread-ID: 1600237
6 Beiträge
Anzeige
Anpassung Code auf 64 Bit PC
biwi

Hallo zusammen,
ich habe folgendes Problem: In meinem Excel-Tool habe ich ein User-Form welches weitere Vertragsdetails von einem ausgewählten Vertrag dynamisch einblendet.
Über einen Button in der UserForm wird ein screenshot der Userform erstellt und dann einer Email angehängt. Soweit...
22.01.2019 12:01:22
Thread-ID: 1669999
3 Beiträge
32-bit in 64-bit
Peter

Hallo!
Wie kann ich 32-bit Excel Dokumente in 64-bit umwandeln, woran sehe ich ob ein Excel Dokument in 32- oder 64-bit vorliegt?
Danke im vorraus!
Gruß
08.05.2008 10:26:12
Thread-ID: 975912
3 Beiträge
Vba code auf 64 Bit testen
wolfi

Hallo,
auf meinem Rechner habe ich die Office 2019 32 Bit.
Kann ich mit meinem Rechner überprüfen ob die VBA Code für Excel auch auf einer niedrigeren 64 Bit Version von Office laufen?
Wenn ja dann bitte wie.
Gruß Wolfi
20.12.2020 09:22:07
Thread-ID: 1800914
8 Beiträge
Umstieg 32bit auf 64bit Problem
Karl

Hallo Community,
ich habe seit 2017 folgenden Code in Verwendung der bis jetzt super funktioniert hat. Jetzt mit neuem Office bekomme ich einen Laufzeitfehler '40036' und es werden folgende Zeilen beim Debuggen markiert:
If Worksheets(k).Name "BOM" & "QW" Then
lz = Worksheets(k...
12.01.2021 16:12:18
Thread-ID: 1805303
7 Beiträge
Code32Bit auf 64Bit Druckerfunktion
Andre´
Hallo alle zusammen,
ich habe den nachfolgende Code von http://www.office-loesung.de/ftopic463549_0_0_asc.php der gut funktioniert mit Office 365 32Bit.
Jetzt soll der Code mit Office 2019 und 64Bit laufen.
Hier die Datei von: Michael Schwimmer https://www.herber.de/bbs/user/144676.xls <...
11.03.2021 20:21:41
Thread-ID: 1819358
5 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
3
5
16
2
2
7
6
4
1
7
2
1
4
2
2
9
5
3
4
8
1
1
4