Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 203 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 200, 201, 202, 203, 204, 205, 206 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Raussuchen und Kopieren aller negativen Werte 
Phelan XLPH

Antworten: 8
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2012, 13:54   Titel: AW: Raussuchen und Kopieren aller negativen Werte Version: Office 2011 (Mac)
Confused Das Dictionary kannst du dir sparen.

Wozu das Einlesen in Dictionary um es dann in ein Datenfeld einzulesen, das
dann ausgegeben wird?!!!
  Thema: Abfrage (Querytable) 
Phelan XLPH

Antworten: 3
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2012, 12:18   Titel: AW: Abfrage (Querytable) Version: Office 2010
Ja, hab ich.

Lösung:
1. Office 2010 Paket deinstallieren.
2. Mit Microsoft Fix it Tool 50450 die bei der Deinstallation
zurückgebliebenen Eintragungen/Elemente vollständig entfernen.
3. Office 2010 Paket installieren
  Thema: Abfrage (Querytable) 
Phelan XLPH

Antworten: 3
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2012, 11:11   Titel: Abfrage (Querytable) Version: Office 2010
Hallo,

ich versuche eine Abfrage über "Microsoft Query" von anderen Tabellen zu erstellen.

Bisher ging das auch tadellos.

Jetzt kommt (s. Bild) diese Fehlermeldung. Confused

Wie konnte sich der Treiber verabschieden, wo bekomme ich diesen her, wie heißt er?
  Thema: Ablaufdatum? 
Phelan XLPH

Antworten: 1
Aufrufe: 361

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2012, 00:18   Titel: AW: Ablaufdatum? Version: Office 2003
Smile Passwort: test
  Thema: Daten aus Listenfeld in neue bzw bestehende Tabelle übernehm 
Phelan XLPH

Antworten: 2
Aufrufe: 146

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 23:36   Titel: AW: Daten aus Listenfeld in neue bzw bestehende Tabelle über Version: Office 2010
Kein Code?!
  Thema: Einzelne Zellenwerte eine Sheets in verschiedene Zellen Shee 
Phelan XLPH

Antworten: 2
Aufrufe: 114

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 23:24   Titel: AW: Einzelne Zellenwerte eine Sheets in verschiedene Zellen Version: Office 2007
Heißen die 30 Blätter so?
'W01-MIDO' ....'W30-MIDO'
  Thema: Raussuchen und Kopieren aller negativen Werte 
Phelan XLPH

Antworten: 8
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 22:35   Titel: AW: Raussuchen und Kopieren aller negativen Werte Version: Office 2011 (Mac)
Da hilft dir das Dictionary auch nicht weiter.

EDIT:

Sub Variante_2()
Dim ar As Variant
Dim arT As Variant
Dim i As Long
Dim n As Long
ar = Intersect(Range("H:H"), ActiveSheet.UsedRange)
ReDim arT(1 To UBound(ar), 1 To 1)
For i = 1 To UBound(ar)
If ar(i, 1) < 0 Then n = n + 1: arT(n, 1) = ar(i, 1)
Next
With Range("I2").Resize(n)
.Value = arT
.Sort .Cells(1), xlAscending, Header:=xlNo
End With
End Sub
Sub Variante_3()
Range("I:I").ClearContents
With Intersect(Range("H:H"), ActiveSheet.UsedRange)
.Cells(1).Offset(, 1) = .Cells(1).Value
.Cells(2).Offset(, 1) = "<0"
.AdvancedFilter xlFilterCopy, .Cells(1).Resize( ...
  Thema: Raussuchen und Kopieren aller negativen Werte 
Phelan XLPH

Antworten: 8
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 21:25   Titel: AW: Raussuchen und Kopieren aller negativen Werte Version: Office 2011 (Mac)
Stimmen tuts schon. Es heißt ja auch NegativeLöschen.

Habs grad andersherum verstanden.


Sub PositiveLöschen()
Dim lZ As Long
Range("H:H").Copy Range("I1")
With Range("I:I")
.Sort .Cells(1), xlAscending, Header:=xlYes
lZ = WorksheetFunction.Match(-0.0000000001, .Cells, 1)
Range(Cells(lZ + 1, 9), Cells(Rows.Count, 9)).ClearContents
End With
End Sub
  Thema: Raussuchen und Kopieren aller negativen Werte 
Phelan XLPH

Antworten: 8
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 21:08   Titel: AW: Raussuchen und Kopieren aller negativen Werte Version: Office 2011 (Mac)
@Kurochan

WorksheetFunction.Transpose geht nur bis 65536 Elementen Surprised
  Thema: Alternative zu Tabelle1.Unprotect bzw. Tabelle1.Protect? 
Phelan XLPH

Antworten: 4
Aufrufe: 288

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 20:37   Titel: AW: Alternative zu Tabelle1.Unprotect bzw. Tabelle1.Protect? Version: Office 2003
Schau dir dazu den Parameter UserInterfaceOnly in der VBA-Hilfe von .Protect an
  Thema: verbundene Listen 
Phelan XLPH

Antworten: 3
Aufrufe: 312

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 20:34   Titel: AW: verbundene Listen Version: Office 2010
Sub Test()

Dim spalte As Integer
spalte = 1 ' Anfang Spalte 1

'Das ganze spielt sich im Tabelleblatt "Übersicht" ab

'Wiederhole solange Zelle (Zeile 1, fortlaufende Spalte) nicht LEER ist
While Sheets("Übersicht").Cells(1, spalte) <> ""
'Füge dem Kombinationsfeld den Zellwert hinzu
ComboBox1.AddItem Sheets("Übersicht").Cells(1, spalte)
'erhöhe die Spaltenvariable um 1
spalte = spalte + 1
Wend

'Damit wird die Überschrift gelistet, nehme ich an
MsgBox "Geht aber auch einfacher!!!"

With Sheets("Übersicht")
ComboBox1.List = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToRight)).Value
End With
End Sub
  Thema: Teile eines String auslesen u. mit SVERWEIS suchen 
Phelan XLPH

Antworten: 14
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 20:24   Titel: AW: Teile eines String auslesen u. mit SVERWEIS suchen Version: Office 2003
Smile
  Thema: Raussuchen und Kopieren aller negativen Werte 
Phelan XLPH

Antworten: 8
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 20:07   Titel: AW: Raussuchen und Kopieren aller negativen Werte Version: Office 2011 (Mac)
Sub NegativeLöschen()
Dim lZ As Long
Range("H:H").Copy Range("I1")
With Range("I:I")
.Sort .Cells(1), xlDescending, Header:=xlYes
lZ = WorksheetFunction.Match(-0.0000000001, .Cells, -1)
Range(Cells(lZ + 1, 9), Cells(Rows.Count, 9)).ClearContents
.Sort .Cells(1), xlAscending, Header:=xlYes
End With

End Sub
  Thema: Teile eines String auslesen u. mit SVERWEIS suchen 
Phelan XLPH

Antworten: 14
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 19:45   Titel: AW: Teile eines String auslesen u. mit SVERWEIS suchen Version: Office 2003
Hallo mausi,

was gefällt dir an meiner UDF nicht?
  Thema: Liste mit Dateinamen filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 16:47   Titel: AW: Liste mit Dateinamen filtern Version: Office 2007
Noch ne Möglichkeit:

Sub OderSo()
Dim anz As Integer
With Cells(1).CurrentRegion.Columns(1).Offset(, 1)
.Formula = "=IF(LEN(A1)-LEN(SUBSTITUTE(A1,""_"",""""))<=2,A1,"""")"
.Value = .Value
With .EntireColumn
On Error Resume Next
With .ColumnDifferences(.Find("")).Offset(, -1)
anz = .Count
.Copy Cells(1, 2)
End With
End With
.Resize(.Rows.Count - anz + 1).Offset(anz).ClearContents
End With
End Sub
 
Seite 203 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 200, 201, 202, 203, 204, 205, 206 ... 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