Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1096to1100
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
Wie kann ich hier VBE code einfügen...
ray
Hallo,
dass dieser so aussieht, wie im Editor?
Viele Grüße aus Hamburg endlich wieder schön warm...
Ray

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wie kann ich hier VBE code einfügen...
01.09.2009 11:40:05
Hajo_Zi
Halo Ray,
meinst Du im Forum? Benutze den Schalter Zitat, oder ein Programm.

ich teste mal jeani
01.09.2009 11:49:43
ray
' _ Nicht registrierte Benutzung der Excel Code Jeanie 1.0 Private Sub _ CommandButton10_Click() Dim wbk As Workbook Dim wks As _ Worksheet Dim vRow As Variant Dim iRow As Integer, iRowT As Integer, iRowL As Integer Application.ScreenUpdating = False Set wbk = Workbooks.Open("F:\daten\mängelliste.xls") Set wks = wbk.Sheets(1) iRowL = Cells(Rows.Count, 6).End(xlUp).Row Workbooks.Add For iRow = 1 To _ iRowL vRow = Application.Match(wks.Cells(iRow, 6).Value, Columns(1), 0) _ If IsError(vRow) Then iRowT = iRowT + 1 Cells(iRowT, 1).Value = wks.Cells(iRow, 6).Value End If Next iRow 'Range("A1").CurrentRegion.Sort _ key1:=Range("A1"), order1:=xlAscending, header:=xlNo With cbMängelliste .List = Range("A1").CurrentRegion. _ Value If .ListCount > 0 _ Then .ListIndex = 0 End With ActiveWorkbook.Close savechanges:=False wbk.Close Set wbk = Nothing Set wks = Nothing Application.ScreenUpdating = True End Sub
Anzeige
AW: Wie kann ich hier VBE code einfügen...
01.09.2009 11:49:48
mumpel
Hallo!
Benutze einfach das Tool VBA in HTML.
Gruß, René
gelöst. Vielen Dank.
01.09.2009 11:56:29
ray
ot

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige