Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: excel und vba
Autor: Kalle
Datum: 18.01.02 12:25
Vielleicht kannst Du damit was anfangen. Macro: Sub Tabelle() ' ' Tabelle Makro ' Makro am 07.01.2002 von pit aufgezeichnet ' Dim Standort As String Dim Kommentar As String Dim Datum As Date Dim Aktiv As Boolean Dim Erfasser As String Datum = Date Sheets("Tabelle2").Select With ActiveSheet.QueryTables.Add(Connection:="TEXT;L:KaiStandorte.txt", _ Destination:=Range("A1")) .Name = "Standorte" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 2 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1) .Refresh BackgroundQuery:=False Sheets("Tabelle1").Select Range("A1").Select End With Do Tabellenform.InformationenEinlesen Standort = Tabellenform.StandortHolen Kommentar = Tabellenform.KommentarHolen Erfasser = Tabellenform.ErfasserHolen Aktiv = Tabellenform.AktivEinfügen If cmdEnde = True Then Exit Do End If Worksheets("Tabelle1").Rows(2).Insert Range("A1:F1").Select With Selection.Font .Name = "Arial" .FontStyle = "Fett" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Columns("A:A").ColumnWidth = 15 Columns("B:B").ColumnWidth = 14.86 Columns("C:C").ColumnWidth = 15 Columns("D").ColumnWidth = 15 Columns("E:E").ColumnWidth = 15 Columns("F:F").ColumnWidth = 25 Range("A2:F2").Select With Selection.Font .Name = "Arial" .FontStyle = "Standard" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Columns("A:A").ColumnWidth = 15 Columns("B:B").ColumnWidth = 14.86 Columns("C:C").ColumnWidth = 15 Columns("D").ColumnWidth = 15 Columns("E:E").ColumnWidth = 15 Columns("F:F").ColumnWidth = 25 Range("A1").Select ActiveCell.FormulaR1C1 = "Inventur-Nr." Range("A2").Select ActiveCell.FormulaR1C1 = "" Range("B1").Select ActiveCell.FormulaR1C1 = "Inventur-Datum" Range("B2").Select ActiveCell.FormulaR1C1 = Datum Range("C1").Select ActiveCell.FormulaR1C1 = "Inventur-Erfasser" Range("C2").Select ActiveCell.FormulaR1C1 = Erfasser Range("D1").Select ActiveCell.FormulaR1C1 = "aktiv/inaktiv" Range("D2").Select If Aktiv = True Then ActiveCell.FormulaR1C1 = "ja" Else ActiveCell.FormulaR1C1 = "nein" End If Range("E1").Select ActiveCell.FormulaR1C1 = "Standort" Range("E2").Select ActiveCell.FormulaR1C1 = Standort Range("F1").Select ActiveCell.FormulaR1C1 = "Kommentar" Range("F2").Select ActiveCell.FormulaR1C1 = Kommentar Range("E1").Select Columns("B:B").ColumnWidth = 17.29 Columns("C:C").ColumnWidth = 18.71 Range("A1:F1").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Loop End Sub Form: im Standort As String Dim Kommentar As String Dim Datum As Date Dim Aktiv As Boolean Dim Erfasser As String Public Sub InformationenEinlesen() Me.Show (1) End Sub Public Sub cmdDatensatzErstellen_Click() If StandortText.Value = "" Or ErfasserText.Value = "" _ Then MsgBox prompt:="Bitte Standort und Erfasser eingeben !", Title:="Achtung" Else Standort = StandortText.Text Kommentar = KommentarText.Text Erfasser = ErfasserText.Text Aktiv = AktivKästchen.Value Me.Hide End If End Sub Public Function StandortHolen() As String StandortHolen = Standort End Function Public Function KommentarHolen() As String KommentarHolen = Kommentar End Function Public Function ErfasserHolen() As String ErfasserHolen = Erfasser End Function Public Function AktivEinfügen() As String AktivEinfügen = Aktiv End Function Public Sub FormularZurücksetzen() Unload Me Me.Hide End Sub Private Sub cmdEnde_Click() With ActiveWorkbook .RunAutoMacros xlAutoClose .Close End With End Sub Private Sub UserForm_Initialize() Sheets("Tabelle2").Select StandortText.ColumnCount = 1 StandortText.RowSource = "a1:a5" StandortText.BoundColumn = 0 KommentarText.ColumnCount = 1 KommentarText.RowSource = "b1:b5" KommentarText.BoundColumn = 0 ErfasserText.ColumnCount = 1 ErfasserText.RowSource = "c1:c5" ErfasserText.BoundColumn = 0 Sheets("Tabelle1").Select End Sub Sag mir mal ob's genützt hat,Salem,Kalle.

excel und vba	97	Maison	14.01.02 23:37
Re: excel und vba	75	Kalle	18.01.02 12:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen