Option Explicit On 
 
Public Class Form3
    Inherits System.Windows.Forms.Form
 
    Public LV As New BS4ServerV3.LV
    Public PRJ As New BS4ServerV3.PRJ
    Public bs4 As New BS4ServerV3.BS4
    Public Kalk As New BS4ServerV3.KALK
    Public BML As New BS4ServerV3.BML
    Public BMM As New BS4ServerV3.BMM
    Public Excel As New Excel.Application
    Public B As String
    Public PN As String
    Public KT
    Public EH
    Public Ans
    Public Zeile
    Public BM
    Public PN1 As Integer
    Public i As String
    Public ii
    Public iii
    Public z
    Public PN2
    Public BS4Name$
    Public Pos
    Public Pos1
    Public saa
    Public poa
    Public Übersicht As Form
 
Private Sub Auslesen()
        Dim Name As String
        'Dim B As String
        'Dim PN As String
        'Dim KT                                    'Variable Kurztext
        'Dim EH                                    'Variable Einheit
        'Dim Ans                                   'Variable Ansatzformel
        'Dim Zeile                                 'Variable zum Excel auslesen
        'Dim BM                                    'Variable Betriebsmittelnr.
        'Dim PN1 As String
        'Dim i As String
        'Dim ii                                       'Schleifenvariable
        'Dim iii                                      'Schleifenvariable
        'Dim z                                        'z wird um 1.5 erhöht _
          wenn i 0 ist
        'Dim PN2                                  'Schleifenvariable
        'Dim Pos                                   'LVPositionsvariable
        'Dim Pos1                                 'LVPositionsvariable
        'Dim saa
        'Dim poa