Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 64 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 61, 62, 63, 64, 65, 66, 67 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: TypeOf Objektname Is Objekttyp 
Phelan XLPH

Antworten: 5
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. März 2013, 13:47   Titel: AW: TypeOf Objektname Is Objekttyp Version: Office 2010
Wenn MSForms vorgeschaltet wird, dann werden auch die anderen erkannt!

Bsp: If TypeOf TextBox1 Is MSForms.TextBox Then

Aber warum das?
  Thema: TypeOf Objektname Is Objekttyp 
Phelan XLPH

Antworten: 5
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. März 2013, 13:42   Titel: AW: TypeOf Objektname Is Objekttyp Version: Office 2010
Hall ransi,

hier mal die Datei.
  Thema: TypeOf Objektname Is Objekttyp 
Phelan XLPH

Antworten: 5
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. März 2013, 13:06   Titel: TypeOf Objektname Is Objekttyp Version: Office 2010
Hallo,

ich versuch mit TypeOf ein Objekt zu identifizieren.

Das klappt leider nicht mit einer TextBox.

In einer Userform habe ich folgende Objekte:
- TextBox1
- ComboBox1
- CommandButton1

Führe ich folgenden Code aus, so wird mir nur 'cbo' angezeigt, die TextBox wird
nicht erkannt.

Weiß jemand woran das liegt?
  Thema: Exceldaten in textfile speichern 
Phelan XLPH

Antworten: 4
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. März 2013, 19:03   Titel: AW: Exceldaten in textfile speichern Version: Office 2010
Hallo,

hab ein bisschen rumgetüftelt...

Sub ExportGruppiertInTextDateien()
Dim avDaten As Variant
Dim intCol As Integer
Dim lngRow As Long
Dim vDicKey As Variant
Dim vColItem As Variant
Dim strTextHeader As String
Dim strTextBody As String
Dim strTextRow As String
Dim strPfad As String
Dim intFF As Integer

Dim dicAbteilung As Object
Dim colRow As Collection

Set dicAbteilung = CreateObject("scripting.dictionary")

Dim t As Single

avDaten = Tabelle1.Cells(1).CurrentRegion

'In Gruppen (Abteilungen) separieren
For lngRow = LBound(avDaten) + 1 To UBound(avDaten)
If dicAbteilung.Exists(avDaten(lngRow, 1)) Then
dicAbteilung(avDaten(lngRow, 1)).Add lngRow
Else
Set colRow = New Collection
colRow.Add lngRow
Set dicAbteilung(avDat ...
  Thema: Flache Liste in einer Hierchie gliedern 
Phelan XLPH

Antworten: 13
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. März 2013, 16:50   Titel: AW: Flache Liste in einer Hierchie gliedern Version: Office 2003
...so?
  Thema: Exceldaten in textfile speichern 
Phelan XLPH

Antworten: 4
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. März 2013, 00:24   Titel: AW: Exceldaten in textfile speichern Version: Office 2010
Sub x()
Dim lngCnt As Long
Dim avData As Variant
Dim intFF As Integer
Dim strPfad As String

Application.ScreenUpdating = False

With Tabelle2
If .AutoFilterMode Then .AutoFilterMode = False
.Cells(1).AutoFilter
avData = Unique(.AutoFilter.Range.Columns(1).Offset(1).Value)
For lngCnt = LBound(avData) To UBound(avData)
.Cells(1).AutoFilter 1, avData(lngCnt)
.AutoFilter.Range.Copy
strPfad = ThisWorkbook.Path & "\" & .Cells(1).Value & "_" & avData(lngCnt) & ".txt"
'***** Export to Txt *****
intFF = FreeFile
Open strPfad For Output As #intFF
Print #intFF, ClpLesen;
Close #intFF
'*************************
Next
.Cells(1).AutoFilter
End With
End Sub

Function Unique(avData As ...
  Thema: Suche HIlfe beim kopieren per VBA 
Phelan XLPH

Antworten: 7
Aufrufe: 187

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 23:47   Titel: AW: Suche HIlfe beim kopieren per VBA Version: Office 2003
Wenn nur die werte übernommen werden sollen dann folgendes tauschen:
.
.
.
If rngC.Offset(, -2) <> Empty Then
wskZiel.Cells(lngLZ, 1).Resize(1, 4).Value = rngC.Offset(, -2).Resize(1, 4).Value
Else
wskZiel.Cells(lngLZ, 1).Value = rngC.Offset(, -2).End(xlUp).Value
wskZiel.Cells(lngLZ, 2).Resize(1, 3).Value = rngC.Offset(, -1).Resize(1, 3).Value
End If
.
.
.
  Thema: Suche HIlfe beim kopieren per VBA 
Phelan XLPH

Antworten: 7
Aufrufe: 187

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 23:37   Titel: AW: Suche HIlfe beim kopieren per VBA Version: Office 2003
Sub x()
Dim rngC As Range
Dim lngLZ As Long
Dim wskQuelle As Worksheet
Dim wskZiel As Worksheet

Set wskQuelle = Worksheets("Tabelle1") 'Anpassen *****
Set wskZiel = Worksheets("Tabelle2") 'Anpassen *****

With wskZiel
lngLZ = WorksheetFunction.Max(15, .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

With wskQuelle
With .Range("C3:C" & .Rows.Count)
If WorksheetFunction.Count(.Cells) Then
For Each rngC In .SpecialCells(xlCellTypeConstants, xlNumbers)
lngLZ = lngLZ + 1
If rngC.Offset(, -2) <> Empty Then
rngC.Offset(, -2).Resize(1, 4).Copy wskZiel.Cells(lngLZ, 1)
Else
rngC.Offset(, -2).End(xlUp).Copy wskZiel.Cells(lngLZ, 1)
rngC.Of ...
  Thema: Flache Liste in einer Hierchie gliedern 
Phelan XLPH

Antworten: 13
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 22:35   Titel: AW: Flache Liste in einer Hierchie gliedern Version: Office 2003
Smile
  Thema: Flache Liste in einer Hierchie gliedern 
Phelan XLPH

Antworten: 13
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 21:45   Titel: AW: Flache Liste in einer Hierchie gliedern Version: Office 2003
...nö!
  Thema: Flache Liste in einer Hierchie gliedern 
Phelan XLPH

Antworten: 13
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 21:21   Titel: AW: Flache Liste in einer Hierchie gliedern Version: Office 2003
Sub EbeneneSetzen()
Dim lngCnt As Long
Dim intEbene As Integer

With Tabelle1
For lngCnt = 5 To .Cells(.Rows.Count, 2).End(xlUp).Row
intEbene = Val(.Cells(lngCnt, 11).Value)
If intEbene > 1 Then
.Cells(lngCnt, 2).Offset(0, intEbene - 1) = .Cells(lngCnt, 2).Value
.Cells(lngCnt, 2).Value = Empty
End If
Next
End With

End Sub
  Thema: Optimierung des Ablaufs 
Phelan XLPH

Antworten: 6
Aufrufe: 139

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 19:22   Titel: AW: Optimierung des Ablaufs Version: Office 2010
Schau mal ob das hier einen Speed-Gewinn gibt:

'SVERWEIS(Suchkriterium;Matrix;Spaltenindex;Bereich_Verweis)
Public Sub machs()
Dim MyDic1 As Object ' MA
Dim MyDic2 As Object ' PS
Dim MyDic3 As Object ' GH
Dim Matrix1 As Variant ' MA
Dim Matrix2 As Variant ' PS
Dim Matrix3 As Variant ' GH
Dim Suchkriterium As Variant
Dim L As Long
Dim Ausgabe As Variant

Set MyDic1 = CreateObject("Scripting.Dictionary") ' MA - Verweis auf das Dictionary Object setzen
Set MyDic2 = CreateObject("Scripting.Dictionary") ' PS
Set MyDic3 = CreateObject("Scripting.Dictionary") ' GH

Dim Anz1 As Long
Dim Anz2 As Long
Dim Anz3 As Long

Anz1 = Worksheets("Tabelle1").Range("A:D").Find("*", , , , xlByRows, xlPrevious)
Anz2 = Worksheets("Tabelle2").Range("A:K").Find("*", , , , xlByRows, xlPrevious)
Anz3 = Wo ...
  Thema: Optimierung des Ablaufs 
Phelan XLPH

Antworten: 6
Aufrufe: 139

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 19:06   Titel: AW: Optimierung des Ablaufs Version: Office 2010
Wink ...das sieht schwer nach ransi's Handschrift aus!

Kann mir einer das hier erklären?

If Ausgabe(L, 8) = MyDic2(Suchkriterium(L, 1))(4) = "" Then
  Thema: Vorlage (.xltx) ändern 
Phelan XLPH

Antworten: 4
Aufrufe: 526

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 13:23   Titel: AW: Vorlage (.xltx) ändern Version: Office 2010
@ Worti,

ich hatte das ganz anders verstanden:

Öffne die Datei (.xltx), wobei sich eine Kopie geöffnet hätte, ändere diese ab,
und speichere sie als neue .xltx . Damit hätte ich dann 2 Vorlagen.

...da hab ich wohl zu kompliziert gedacht. Confused
  Thema: Vorlage (.xltx) ändern 
Phelan XLPH

Antworten: 4
Aufrufe: 526

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. März 2013, 11:56   Titel: AW: Vorlage (.xltx) ändern Version: Office 2010
Habs gefunden:

[url=http://www.online-excel.de/excel/singsel.php?f=155]Mustervorlage

@ Worti, das ist unschön
 
Seite 64 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 61, 62, 63, 64, 65, 66, 67 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum