Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 711 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 708, 709, 710, 711, 712, 713, 714 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kapitelnummerierung in Excel Tabelle 
Phelan XLPH

Antworten: 7
Aufrufe: 1812

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 21:15   Titel: AW: Kapitelnummerierung in Excel Tabelle Version: Office XP (2002)
@ELVIS ...Coooooooooooool, Code gefällt mir. 8) Very Happy Laughing
  Thema: Auslesen von Steuerelementen in Excelsheets 
Phelan XLPH

Antworten: 4
Aufrufe: 714

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 20:05   Titel: AW: Auslesen von Steuerelementen in Excelsheets Version: Office 2003
Ja...und dann gibts da noch die DrawingObjects, und Pictures, und, und....

da blick ich irgendwie nicht durch, das hängt irgendwie alles zusammen.

...dazu kommt dass ich XL2007 hab und da ist was Formen angeht mit
aufzeichen generell nix zu holen -> haben die "Gates"-Leute wohl vergessen

Danke dir Case...aber ich hätte gern ne Zusammenfassung, wenn es
sowas überhaupt gibt. So ne art Blockdiagramm...das Thema Formen empfinde
ich als riesig und wollte mir damit einen Überblick verschaffen.

Ich komm zwar immer zu meinem Ergebnis, weiss aber nicht ob ein
anderer Weg vielleicht einfacher wäre bzw. spezieller oder sicherer ...naja

Den 2.Link kenne ich schon, schau mir jetzt mal deinen 1. an.

Danke Nochmals Smile
Danke Case
  Thema: Auslesen von Steuerelementen in Excelsheets 
Phelan XLPH

Antworten: 4
Aufrufe: 714

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 19:17   Titel: AW: Auslesen von Steuerelementen in Excelsheets Version: Office 2003
@RO_SCH

haallo, hab schon öfter solch komische konstrukte gesehen:
shp.OLEFormat.Object.Object.Value = True
...hast du mir vielleicht irgendein Abbild der Struktur/Hierarchie
der Shape und alles was drunter und/oder übergeodnet ist.

Dann werde ich hoffentlich mal verstehen wie die Beziehungen
zw. den Formen, Steuerelementen und was es noch so gibt, sind.

...und kann dann vielleicht auch diesen Code verstehen?!
  Thema: Duplikate in Spalte herausfinden 
Phelan XLPH

Antworten: 10
Aufrufe: 287

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 15:23   Titel: AW: Duplikate in Spalte herausfinden Version: Office 2003
Hallo nochmal,

mach vorher ne Sicherungskopie:

Sub DoppelteListenUndLoeschen()
Dim arr As Variant
Dim Dic As Object
Dim lngI As Long
Dim strDoppelte As String
Dim strDoppelteLoeschen As String
Dim keyD As Variant
Dim lngSZ As Long 'StarZeile

Set Dic = CreateObject("Scripting.Dictionary")

lngSZ = 2
arr = Range("A" & lngSZ & ":A100")

For lngI = 1 To UBound(arr)
Dic(arr(lngI, 1)) = Dic(arr(lngI, 1)) & "," & lngI + lngSZ - 1 & ":" & lngI + lngSZ - 1
Next
For Each keyD In Dic.Keys
If InStrRev(Dic(keyD), ",") > 1 And keyD <> "" Then
strDoppelte = strDoppelte & vbLf & "Wert " & keyD & ": " & Mid(Dic(keyD), 2)
strDoppelteLoeschen = strDoppelteLoeschen & Mid(Mid(Dic(keyD), 2), I ...
  Thema: Duplikate in Spalte herausfinden 
Phelan XLPH

Antworten: 10
Aufrufe: 287

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 14:56   Titel: AW: Duplikate in Spalte herausfinden Version: Office 2003
Habs auch versucht, ne 3. Variante:

Sub DoppelteListen()
Dim arr As Variant
Dim Dic As Object
Dim lngI As Long
Dim strDoppelte As String
Dim keyD As Variant
Dim lngSZ As Long 'StarZeile

Set Dic = CreateObject("Scripting.Dictionary")

lngSZ = 2
arr = Range("A" & lngSZ & ":A100")

For lngI = 1 To UBound(arr)
Dic(arr(lngI, 1)) = Dic(arr(lngI, 1)) & ";" & lngI + lngSZ - 1
Next
For Each keyD In Dic.Keys
If InStrRev(Dic(keyD), ";") > 1 And keyD <> "" Then
strDoppelte = strDoppelte & vbLf & "Wert " & keyD & ": " & Mid(Dic(keyD), 2)
End If
Next

MsgBox "Doppelte in Zeilen:" & vbLf & strDoppelte, , "Doppelt"
End Sub
  Thema: Gruppierung in Tabelle 
Phelan XLPH

Antworten: 10
Aufrufe: 382

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2009, 14:16   Titel: AW: Gruppierung in Tabelle Version: Office 2003
Hallo,

was spricht gegen das Filtern?
  Thema: Tabellen kopieren per Treeview 
Phelan XLPH

Antworten: 24
Aufrufe: 2065

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 21:21   Titel: AW: Tabellen kopieren per Treeview Version: Office 2007
Naja das Ergebnis deines Codes entspricht nicht dem meinem:

Tabelle1  ABCDE1     2 a1xwe3 a1yer4 Z12335 z1236 Z12447 a2xtz8 b1xwe9     10 b2xtz11 b2xtz12 c1xer13 c2ytz14 a1xwr Option Explicit

Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeviewListeFuellen
End Sub

Private Sub CommandButton2_Click()
TreeView1.Nodes.Clear
TreeviewListeFuellen2
End Sub

Private Sub UserForm_Initialize()

End Sub

Sub TreeviewListeFuellen()
Dim nodX As Node
Dim arr As Variant
Dim z As Long
Dim s As Long
Dim i As Integer
Dim KeyGen As String
Dim KeyGenRel As String

arr = Range("B2:E14")

With TreeView1

.LineStyle = tvwRootLines

For z = 1 To UBound(arr)
For s = 1 To UBound(arr, 2)

If arr(z, s) = "" Then Exit For

On Error Resume Next

For i = 1 To s
...
  Thema: Case Select und Comboboxen - "kleines Problem" 
Phelan XLPH

Antworten: 9
Aufrufe: 761

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 21:04   Titel: AW: Case Select und Comboboxen - "kleines Problem" Version: Office 2003
Private Sub CB_1_Change()

If CB_1.ListIndex = -1 Then Exit Sub
N = Selection.Row
C = Selection.Column
Select Case C
Case 2 ' Spalte B (2)
Cells(N, C - 1) = Sheets("Daten").Cells(CB_1.ListIndex + 3, 1)
Cells(N, C) = Sheets("Daten").Cells(CB_1.ListIndex + 3, 2)
Cells(N, C + 5) = Sheets("Daten").Cells(CB_1.ListIndex + 3, 3)
Cells(N, C + 7) = Sheets("Daten").Cells(CB_1.ListIndex + 3, 4)
Cells(N, C + 11) = Sheets("Daten").Cells(CB_1.ListIndex + 3, 5)
End Select
Cells(N + 1, C).Select
End Sub
  Thema: Case Select und Comboboxen - "kleines Problem" 
Phelan XLPH

Antworten: 9
Aufrufe: 761

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 20:42   Titel: AW: Case Select und Comboboxen - "kleines Problem" Version: Office 2003
das noch einfügen:

CB_1.DropDown
  Thema: Tabellen kopieren per Treeview 
Phelan XLPH

Antworten: 24
Aufrufe: 2065

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 20:31   Titel: AW: Tabellen kopieren per Treeview Version: Office 2007
...mensch Nepumuk muss das sein!!??

Hab mich schon immer gefragt obs da nicht nen einfacheren Weg gibt.

Wo wir grad dabei sind, gibts hierfür ne einfachere Möglichkeit die
Struktur abzubilden?:
Sub TreeviewListeFuellen()
Dim nodX As Node
Dim arr As Variant
Dim z As Long
Dim s As Long
Dim i As Integer
Dim KeyGen As String
Dim KeyGenRel As String

arr = Range("B2:E13")

With TreeView1

.LineStyle = tvwRootLines

For z = 1 To UBound(arr)
For s = 1 To UBound(arr, 2)

If arr(z, s) = "" Then Exit For

On Error Resume Next

For i = 1 To s
KeyGen = KeyGen & arr(z, i)
Next

For i = 1 To s
KeyGenRel = KeyGenRel & arr(z, i - 1)
Next

If s = 1 Then
.Nodes.Add , , KeyGen, arr(z, s)
...
  Thema: Case Select und Comboboxen - "kleines Problem" 
Phelan XLPH

Antworten: 9
Aufrufe: 761

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 20:20   Titel: AW: Case Select und Comboboxen - "kleines Problem" Version: Office 2003
Hallo,

teste mal:

Private Sub Worksheet_SelectionChange(ByVal Zelle As Excel.Range)
N = Zelle.Row
C = Zelle.Column



Select Case C
' Selectieren der Spalten B (2) und Spalte M (13)
Case 2, 13
' Selectieren der Zeilen in Spalte B (2) und Spalte M (13)
Select Case N
' Es dürfen in diesem Fall nur Einträge in die Zeilen:
' Zeile 32
' Zeile 37
' Zeile 42 bis 46
' Zeile 51 bis 55
' Zeile 60 bis 64
' Zeile 69 bis 73
' Zeile 78 bis 82
' erfolgen
Case 32 To 32, 37 To 37, 42 To 46, 51 To 55, 60 To 64, 69 To 73, 78 To 82
Select Case C
Case 2 'Cursor in Spalte B
' liest die Daten aus Tabelle "Daten" in die Listbox ein
' Bereich1 und Bereich2 werden über das Namensfeld definiert
CB_1.ListFillRange = "Daten!Bereich1"
...
  Thema: Tabellenblatt durchsuchen/Ergebnisse als H-link für Experten 
Phelan XLPH

Antworten: 5
Aufrufe: 1064

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 19:58   Titel: AW: Tabellenblatt durchsuchen/Ergebnisse als H-link für Expe Version: Office 2003
Upload wäre da hilfreich!
  Thema: Tabellen kopieren per Treeview 
Phelan XLPH

Antworten: 24
Aufrufe: 2065

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 19:54   Titel: AW: Tabellen kopieren per Treeview Version: Office 2007
Ich hab zu Danken Smile
  Thema: Tabellen kopieren per Treeview 
Phelan XLPH

Antworten: 24
Aufrufe: 2065

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 19:28   Titel: AW: Tabellen kopieren per Treeview Version: Office 2007
Hi,

yo war ungetestet...dieses aber auch:

Sub Test2()
Workbooks.Add xlWBATWorksheet 'Bei Erzeugung nur ein Sheet
ActiveWorkbook.Sheets(1).Name = "###00###" 'Das einzige Sheet umbenennen

For Each nd In treeview1.Nodes
If nd.Checked = True Then
ThisWorkbook.Sheets(nd.Name).Copy _
After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
End If
Next nd

Application.DisplayAlerts = False
ActiveWorkbook.Sheets("###00###").Delete 'Das Sheet bei Erzeugung löschen
Application.DisplayAlerts = True
End Sub

...ich denk das ist der einfachste weg...??!!
  Thema: Subtotal 
Phelan XLPH

Antworten: 4
Aufrufe: 474

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2009, 19:13   Titel: AW: Subtotal Version: Office 2003
Hallo,

probier das mal:
Cells(40000, Spaltenzahl_DUR).Formula = "=SUBTOTAL(9," & Range(Cells(2, Spaltenzahl_DUR), Cells(39999, Spaltenzahl_DUR)).Address(1, 1) & ")"
 
Seite 711 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 708, 709, 710, 711, 712, 713, 714 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript