Excel Development
- Details
- Zugriffe: 2560
Excel-VBA Projekte ? Für uns kein Problem !
Wir entwickeln auch erfolgreich VBA-Projekte, so z. B. den Datenexport aus PimCore mit PHP in eine CSV Datei und dann über eine Exceldatei zum GS1 Datenpool.
Hier unsere Code-Ecke ...
In unserer Code-Ecke werden wir immer wieder mal neue nützliche Funktionen zur freien Verfügung ablegen
Das hier ist der Programmcode um den Programmfortschritt in der Excel Fußzeile anzuzeigen, nCount ist die Variable die die Nummer aktuell bearbeitete Zeile enthält und nLetzteZeile eben die Nummer der letzten zu bearbeitenden Zeile.
'Statusanzeige für User
Private Function StatusAnzeige(sTxt As String, sWert As Single)
Dim iWert As Integer
Dim iWiederh As Integer
With WorksheetFunction
iWert = .Round(sWert, 2) * 100
iWiederh = Int(iWert / 10)
Application.StatusBar = sTxt & .Rept("", 10 - iWiederh) & "" & iWert & "%" & " " & .Rept("*", iWiederh)
End With
End Function
Private Function StatusAnzeige(sTxt As String, sWert As Single)
Dim iWert As Integer
Dim iWiederh As Integer
With WorksheetFunction
iWert = .Round(sWert, 2) * 100
iWiederh = Int(iWert / 10)
Application.StatusBar = sTxt & .Rept("", 10 - iWiederh) & "" & iWert & "%" & " " & .Rept("*", iWiederh)
End With
End Function
'Codebeispiel mit Funktionsaufruf ---> StatusAnzeige()
For nCount = 1 To nLetzteZeile
Sheets("Import").Select
Range("A" + CStr(nCount)).Select
'erstmal Zeile aus CSV-Datei einlesen
If nCount = 1 Then 'Kopfdaten einlesen
Sheets("Import").Select
Range("A" + CStr(nCount)).Select
'erstmal Zeile aus CSV-Datei einlesen
If nCount = 1 Then 'Kopfdaten einlesen
... weiterer Code ...
'Informationen anzeigen -> der Aufruf erfolgt dann im ProgrammCode wie hier im Beispiel
StatusAnzeige "Fortschritt Datenimport: ", nCount / nLetzteZeile
StatusAnzeige "Fortschritt Datenimport: ", nCount / nLetzteZeile
... weiterer Code ...
MT 01/2020