Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 128 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 125, 126, 127, 128, 129, 130, 131 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Daten aus Tabelle in Haupttabelle einfügen, wenn.... 
Phelan XLPH

Antworten: 28
Aufrufe: 911

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 23:46   Titel: AW: Daten aus Tabelle in Haupttabelle einfügen, wenn.... Version: Office 2010
Embarassed Embarassed Embarassed

Also zurück zu deinem Makro.

Die Daten ließen sich auch ohne Autofilter einlesen, falls dieser so viel Probleme
macht.

Dazu wäre eine Quell-Mappe alös beispiel ganz hilfreich.

Lad die doch irgendwo hoch.
  Thema: Keine Makrokenntnisse - Automatisches Sortieren von Einträge 
Phelan XLPH

Antworten: 2
Aufrufe: 119

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 23:32   Titel: AW: Keine Makrokenntnisse - Automatisches Sortieren von Eint Version: Office 2010
So?
  Thema: Werte mit geschachtelten for-Schleifen kopieren 
Phelan XLPH

Antworten: 17
Aufrufe: 362

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 22:30   Titel: AW: Werte mit geschachtelten for-Schleifen kopieren Version: Office 2010
Hallo,

so vielleicht?
  Thema: Aus Inputtabelle dynamische Outputtabelle erstellen 
Phelan XLPH

Antworten: 10
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 20:40   Titel: AW: Aus Inputtabelle dynamische Outputtabelle erstellen Version: Office XP (2002)
Hier dein Beispiel:
  Thema: Query Abfragedefinition löschen mit VBA Excel 2010 
Phelan XLPH

Antworten: 2
Aufrufe: 1021

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 15:58   Titel: AW: Query Abfragedefinition löschen mit VBA Excel 2010 Version: Office 2010
XL2010 setzt das QT auf ein Listobjekt auf, das gabs <XL2007 noch nicht.

Sub Disconnect()
Dim lo As ListObject
Dim WSh As Worksheet

For Each WSh In ThisWorkbook.Worksheets
For Each lo In WSh.ListObjects
lo.Unlink
Next lo
Next WSh

End Sub
  Thema: Application.ScreenUpdating = False "funktioniert nur ei 
Phelan XLPH

Antworten: 3
Aufrufe: 476

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 15:32   Titel: AW: Application.ScreenUpdating = False "funktioniert nu Version: Office 2010
Sub Variiere_OI_Wk_AundB()

Dim Variiere_OI_WK

Variiere_OI_WK = Tabelle21.Range("Variiere_OI_WK").Value


If Variiere_OI_WK = 1 Then
Tabelle3.Range("C350:I355").FormulaArray = "=Tabelle_OI_Wk*1"
Tabelle12.Range("C350:I355").FormulaArray = "=Tabelle_OI_Wk*1"
End If


End Sub
  Thema: Aus Inputtabelle dynamische Outputtabelle erstellen 
Phelan XLPH

Antworten: 10
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 15:10   Titel: AW: Aus Inputtabelle dynamische Outputtabelle erstellen Version: Office XP (2002)
Sub DB_Tab_zu_Kreuz_Tab()
Dim i As Long, k As Integer
Dim dicColumnHeader As Object
Dim dicRowHeader As Object
Dim dicDaten As Object
Dim sID As String
Dim ar As Variant
Dim arCH As Variant
Dim arRH As Variant
Dim arErg As Variant

'Tabelle lesen
ar = Tabelle4.Cells(1).CurrentRegion

Set dicColumnHeader = CreateObject("scripting.dictionary")
Set dicRowHeader = CreateObject("scripting.dictionary")
Set dicDaten = CreateObject("scripting.dictionary")

For i = 2 To UBound(ar)
'Spalten-Überschriften als Unikate speichern
dicColumnHeader(ar(i, 4)) = 0

'Zeilen-Überschriften als Unikate speichern
sID = _
ar(i, 1) & vbTab & _
ar(i, 2) & vbTab & _
ar(i, 3)
dicRowHeader(sID) = i

...
  Thema: Aus Inputtabelle dynamische Outputtabelle erstellen 
Phelan XLPH

Antworten: 10
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 15:09   Titel: AW: Aus Inputtabelle dynamische Outputtabelle erstellen Version: Office XP (2002)
Sub DB_Tab_zu_Kreuz_Tab()
Dim i As Long, k As Integer
Dim dicColumnHeader As Object
Dim dicRowHeader As Object
Dim dicDaten As Object
Dim sID As String
Dim ar As Variant
Dim arCH As Variant
Dim arRH As Variant
Dim arErg As Variant

'Tabelle lesen
ar = Tabelle4.Cells(1).CurrentRegion

Set dicColumnHeader = CreateObject("scripting.dictionary")
Set dicRowHeader = CreateObject("scripting.dictionary")
Set dicDaten = CreateObject("scripting.dictionary")

For i = 2 To UBound(ar)
'Spalten-Überschriften als Unikate speichern
dicColumnHeader(ar(i, 4)) = 0

'Zeilen-Überschriften als Unikate speichern
sID = _
ar(i, 1) & vbTab & _
ar(i, 2) & vbTab & _
ar(i, 3)
dicRowHeader(sID) = i

'Daten speichern
sID = sID & vbTab & ar(i, 4)
dicDaten(sID) = a ...
  Thema: Aus Inputtabelle dynamische Outputtabelle erstellen 
Phelan XLPH

Antworten: 10
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 14:27   Titel: AW: Aus Inputtabelle dynamische Outputtabelle erstellen Version: Office XP (2002)
Willst du es nicht lieber über eine Pivottabelle machen?
  Thema: Werte mit geschachtelten for-Schleifen kopieren 
Phelan XLPH

Antworten: 17
Aufrufe: 362

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 13:49   Titel: AW: Werte mit geschachtelten for-Schleifen kopieren Version: Office 2010
Was zählt x und y? Wo sind die Jahre?
  Thema: Begriff durch Formel ersetzen 
Phelan XLPH

Antworten: 2
Aufrufe: 105

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 13:32   Titel: AW: Begriff durch Formel ersetzen Version: Office 2010
arrErsetzen = Array(Cells.FormulaR1C1 = "=subtotal(9,R2C:R[-1]C)")

Entfern das rot gekennzeichnete.
  Thema: Aus Inputtabelle dynamische Outputtabelle erstellen 
Phelan XLPH

Antworten: 10
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 13:20   Titel: AW: Aus Inputtabelle dynamische Outputtabelle erstellen Version: Office XP (2002)
Hallo,

z.B. bei AA-BA nur CA erscheinen, CB, CC und CD sollen weg, weil kein Preis existiert.

...wobei du dann wieder beim Ursprung wärst, oder nicht?!
  Thema: Vergleich zweier Spalten: Wo ist mein Fehler ?? 
Phelan XLPH

Antworten: 4
Aufrufe: 144

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Aug 2012, 11:01   Titel: AW: Vergleich zweier Spalten: Wo ist mein Fehler ?? Version: Office 2010
Sub MatchWithSpeed()
Dim i As Long, n As Long
Dim dicKonto As Object
Dim arSusa As Variant
Dim arGuV As Variant
Dim arVergleich As Variant
Dim arKonto As Variant

Const startzeile_susa As Long = 3
Const startzeile_guv As Long = 10
Const ausgabezeile_vergleich As Long = 4

Set dicKonto = CreateObject("scripting.dictionary")

With Worksheets("GuV")
arGuV = .Range(.Cells(startzeile_guv, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With

For i = 1 To UBound(arGuV)
dicKonto(arGuV(i, 1)) = 1
Next

With Worksheets("Susa")
arSusa = .Range(.Cells(startzeile_susa, 2), .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 4)
End With

ReDim arVergleich(1 To UBound(arSusa), 1 To 4)
For i = 1 To ...
  Thema: Diagramm Belegung 
Phelan XLPH

Antworten: 1
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Aug 2012, 23:00   Titel: Diagramm Belegung Version: Office 2010
Hallo,

ich habs nicht so mit Diagrammen.

Ich möchte die Belgung von Räumen bezogen auf das Datum und deren Dauer
in Tagen in einem Diagramm sichtbar machen.

y-Achse: Raum-Nr.
X-Achse: Datum

seitlicher Balken die Dauer

Bsp-Daten:

Raum Beginn Dauer
R1 17.08.2012 1
R2 22.08.2012 2
R3 27.08.2012 3
R1 01.09.2012 4
R2 06.09.2012 5
R3 11.09.2012 6

Komme auf keinen grünen Zweig, oder brauch ich dazu das PivotChart?
  Thema: Userform mit 5-stufigen dropdown (dynamisch?!?) 
Phelan XLPH

Antworten: 8
Aufrufe: 298

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Aug 2012, 16:00   Titel: AW: Userform mit 5-stufigen dropdown (dynamisch?!?) Version: Office 2007
Hallo Jusmicha,

anbei ein Beispiel.
 
Seite 128 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 125, 126, 127, 128, 129, 130, 131 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen