Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 444 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 441, 442, 443, 444, 445, 446, 447 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Datenabgleich 
Phelan XLPH

Antworten: 15
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 16:52   Titel: AW: Datenabgleich Version: Office 2003
Jetzt brauch ich nen Kompass.

Sub ph()
Dim arr As Variant
Dim Dic As Object
Dim rng As Range
Dim i As Long
Dim anz As Long
Dim t As Single

t = Timer
Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle1 'Liste
arr = .Range("D3:K" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With
For i = 1 To UBound(arr)
Dic(arr(i, 1)) = Array(arr(i, 5), arr(i, 8))
Next

With Tabelle2 'Artikel
Set rng = .Range("D1:I" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With
arr = rng
For i = 1 To UBound(arr)
If Dic.Exists(arr(i, 1)) Then
arr(i, 3) = Dic(arr(i, 1))(1)
arr(i, 6) = Dic(arr(i, 1))(0)
...
  Thema: Suchen und Ersetzen in Makros durchführen 
Phelan XLPH

Antworten: 7
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 16:34   Titel: AW: Suchen und Ersetzen in Makros durchführen Version: Office 2003
Versuchs mal hiermit:

Sub ph()
With Tabelle1.UsedRange
With .Columns(.Columns.Count)
.Copy .Offset(, 1).Cells(1)
End With
End With
End Sub
  Thema: Datenabgleich 
Phelan XLPH

Antworten: 15
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 16:14   Titel: AW: Datenabgleich Version: Office 2003
Hallo,

teste mal,

hab angenommen dass Artikel-Liste eine Überschrift hat.

Sub ph()
Dim arr As Variant
Dim Dic As Object
Dim rng As Range
Dim i As Long
Dim t As Single

t = Timer
Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle1 'Liste
arr = .Range("D3:K" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With
For i = 1 To UBound(arr)
Dic(arr(i, 1)) = Array(arr(i, 5), arr(i, 8))
Next

With Tabelle2 'Artikel
Set rng = .Range("D2:I" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With
arr = rng
For i = 1 To UBound(arr)
If Dic.Exists(arr(i, 1)) Then
arr(i, 3) = Dic(arr(i, 1))(0)
arr(i, 6) = Dic(arr(i, 1& ...
  Thema: Blätter aus verschiedenen Mappen im Wechsel drucken 
Phelan XLPH

Antworten: 13
Aufrufe: 636

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:59   Titel: AW: Blätter aus verschiedenen Mappen im Wechsel drucken Version: Office 2003
@Amicro2000

...irgendwo muss das Wissen ja herkommen.

Jedem Doktor geht ein Doktor voraus.

Hat noch keiner das Rad neu erfunden!
  Thema: Laufzeitfehler 1004 
Phelan XLPH

Antworten: 6
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:56   Titel: AW: Laufzeitfehler 1004 Version: Office 2007
objSheet.Range(anfang & ":" & ende)
  Thema: Datenabgleich 
Phelan XLPH

Antworten: 15
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:47   Titel: AW: Datenabgleich Version: Office 2003
wenn ja, dann kopiere die dazu gehörige Menge (Spalte K) und den Preis (Spalte H)

...die Aussage stimmt mit der "Liste" nicht überein!
  Thema: Alle CSV-Dateien eines Ordners auslesen 
Phelan XLPH

Antworten: 12
Aufrufe: 669

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:36   Titel: AW: Alle CSV-Dateien eines Ordners auslesen Version: Office 2007
@Case

ist das ein witz?
  Thema: Datenabgleich 
Phelan XLPH

Antworten: 15
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:09   Titel: AW: Datenabgleich Version: Office 2003
Sollen alte Werte überschrieben werden?

Oder sollen nur die geprüft werden die noch keinen Preis(Menge) haben?
  Thema: Alle CSV-Dateien eines Ordners auslesen 
Phelan XLPH

Antworten: 12
Aufrufe: 669

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:06   Titel: AW: Alle CSV-Dateien eines Ordners auslesen Version: Office 2007
100? Kein Wunder dass Outsourcing blüht.
  Thema: Formel in Zelle wird nur als Text eingefügt 
Phelan XLPH

Antworten: 7
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:05   Titel: AW: Formel in Zelle wird nur als Text eingefügt Version: Office 97
Ach du Sch....!
  Thema: Laufzeitfehler '438' bei Treeview Zuweisung 
Phelan XLPH

Antworten: 10
Aufrufe: 958

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:02   Titel: AW: Laufzeitfehler '438' bei Treeview Zuweisung Version: Office 2003
Posten von E-Mail-Adressen sind verboten.
  Thema: Liste mit Array auslesen,doppelte aussortiern,werte addieren 
Phelan XLPH

Antworten: 26
Aufrufe: 4642

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 15:01   Titel: AW: Liste mit Array auslesen,doppelte aussortiern,werte addi Version: Office 2003
Hallo frido,

Wie gasagt, ist aufgezeichnet.

Gib mal in die Excel-Hilfe "Konsolidieren" ein.

Da kannst du dann einiges nachlesen.
  Thema: Formel in Zelle wird nur als Text eingefügt 
Phelan XLPH

Antworten: 7
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 14:55   Titel: AW: Formel in Zelle wird nur als Text eingefügt Version: Office 97
Das hier müsste tun:

Sheets("Vorklaerblatt").Range("H13").Formula = "=IF(AND(AL73=0,V13=""ja""),N13,"""")"
  Thema: Laufzeitfehler '438' bei Treeview Zuweisung 
Phelan XLPH

Antworten: 10
Aufrufe: 958

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 14:52   Titel: AW: Laufzeitfehler '438' bei Treeview Zuweisung Version: Office 2003
Lad es mal irgendwo hoch. Mir fällt auch nix weiter ein.
  Thema: Alle CSV-Dateien eines Ordners auslesen 
Phelan XLPH

Antworten: 12
Aufrufe: 669

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2010, 14:48   Titel: AW: Alle CSV-Dateien eines Ordners auslesen Version: Office 2007
...und ich brauch 1000€ für eine derartige Arbeit. Cool
 
Seite 444 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 441, 442, 443, 444, 445, 446, 447 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage