Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 206 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 203, 204, 205, 206, 207, 208, 209 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Daten aus anderer Tabelle anhand von Überschrift kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 571

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 20:54   Titel: AW: Daten aus anderer Tabelle anhand von Überschrift kopiere Version: Office 2007
Sind dei Tabellen in verschiedenen Dateien oder in der selben Datei?
  Thema: per Makro und Auswahl geöffnete Datei schließen 
Phelan XLPH

Antworten: 6
Aufrufe: 683

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 20:35   Titel: AW: per Makro und Auswahl geöffnete Datei schließen Version: Office 2010
Selectierung solltest du dir sparen.

Wundert mich dass es keiner verbessert hat, solche Sparer Rolling Eyes
  Thema: Mehrere Zeilen aufeinmal löschen 
Phelan XLPH

Antworten: 11
Aufrufe: 347

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 20:16   Titel: AW: Mehrere Zeilen aufeinmal löschen Version: Office 2007
Liegt am .xlsm. konvertieren oder als Zip hochladen.
  Thema: per Makro und Auswahl geöffnete Datei schließen 
Phelan XLPH

Antworten: 6
Aufrufe: 683

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 20:13   Titel: AW: per Makro und Auswahl geöffnete Datei schließen Version: Office 2010
Korrektuer:
Destination:=Thisworkbook.Worksheets("???").Range("B26")

??? = Name der Ziel-Tabelle
  Thema: per Makro und Auswahl geöffnete Datei schließen 
Phelan XLPH

Antworten: 6
Aufrufe: 683

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 20:08   Titel: AW: per Makro und Auswahl geöffnete Datei schließen Version: Office 2010
Sub Import()
'
' Import Makro
'

Dim XLSMfile As Variant

XLSMfile = Application.GetOpenFilename( _
FileFilter:="XLSM-Dateien (*.xlsm), *.xlsm", _
MultiSelect:=False)

If TypeName(XLSMfile) = "Boolean" Then Exit Sub

With Workbooks.Open(Filename:=XLSMfile, Local:=True)
.Range("B26:L392").Copy Destination:=ActiveSheet.Range("B26")
.Close False
End With
ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
  Thema: Ranges zwischen Workbooks kopieren und Workbook_BeforeClose 
Phelan XLPH

Antworten: 7
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 19:59   Titel: AW: Ranges zwischen Workbooks kopieren und Workbook_BeforeCl Version: Office 2010
so zB:

Sub Test()
MsgBox LetzteErstellteDatei("D:\")
MsgBox LetzteErstellteDatei("D:\Test")
End Sub

Function LetzteErstellteDatei(Pfad)
Dim d, DateMax As Date
With CreateObject("Scripting.FileSystemObject")
With .GetFolder(Pfad)
For Each d In .Files
If DateMax < d.DateCreated Then
DateMax = d.DateCreated
LetzteErstellteDatei = d.Name
End If
Next
End With
End With
End Function
  Thema: Mittels Schleife Werte einer Spalte m. Tabelle abgleichen 
Phelan XLPH

Antworten: 3
Aufrufe: 352

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 19:31   Titel: AW: Mittels Schleife Werte einer Spalte m. Tabelle abgleiche Version: Office 2003
Ich will die Geschwindigkeit maximieren und daher keine VLOOKUP-Formeln verwenden.

...warum? Weil das die schnellste Performance ist?!

Tabelle 2 muss nach SpalteA aufsteigend sortiert sein.
Füge in B1 in Tabelle1 folgende Formel ein und kopiere sie runter:
=WENN(A1>=MIN(Tabelle2!A:A);WENN(SVERWEIS(A1;Tabelle2!A:A;1;1)=A1;SVERWEIS(A1;Tabelle2!A:B;2;1);"Nicht vorhanden");"Nicht vorhanden")
  Thema: Zielbereich des Spezialfilters variabel 
Phelan XLPH

Antworten: 12
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 19:15   Titel: AW: Zielbereich des Spezialfilters variabel Version: Office 2010
Erstell noch ein Blatt: "Aufteilung"

Und ersetze folgenden Code in "DieseArbeitsmappe":

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim intFilterSpalte As Integer
Dim arStatus As Variant
Dim i As Long
Select Case Sh.Name
Case "Aufteilung"
arStatus = Array("offen", "erhalten", "abgelehnt")
intFilterSpalte = 3 'Anpassen ****************************
Application.ScreenUpdating = False
Sh.UsedRange.Clear
With Tabelle1
If .AutoFilterMode Then .AutoFilterMode = False
With .Range("A1").CurrentRegion.EntireColumn
For i = 0 To UBound(arStatus)
.AutoFilter intFilterSpalte, arStatus(i)
.Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sh.Cells(Sh.Rows.C ...
  Thema: Zielbereich des Spezialfilters variabel 
Phelan XLPH

Antworten: 12
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 18:24   Titel: AW: Zielbereich des Spezialfilters variabel Version: Office 2010
Das ist mir bekannt.

Aber halt dich jetzt fest. ca. 60.000 Zeilen haben ich in einer Spalte in jeder
3. Zeile einen bestimmten Wert. Gefiltert nach diesem ergeben das 19798.

Und diese werden auch kopiert Shock Liegt das am XL2010?
  Thema: Ranges zwischen Workbooks kopieren und Workbook_BeforeClose 
Phelan XLPH

Antworten: 7
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:57   Titel: AW: Ranges zwischen Workbooks kopieren und Workbook_BeforeCl Version: Office 2010
Was ich ueber sie weiss, ist das jeweilige Verzeichnis und dass es sich jeweils um die neueste Datei in dem Verzeichnis handelt.

Das ließe sich ermitteln. Dann benötigst du die umbenennung auch nicht.
  Thema: unbekannte 4-stellige Zahl aus einem String auslesen 
Phelan XLPH

Antworten: 14
Aufrufe: 999

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:53   Titel: AW: unbekannte 4-stellige Zahl aus einem String auslesen Version: Office 2003
Und was ist wenn eine Zeile mit einer 4-stell. Zahl anfängt oder endet?

Ist das dann der Colletaralschaden? Laughing Laughing
  Thema: unbekannte 4-stellige Zahl aus einem String auslesen 
Phelan XLPH

Antworten: 14
Aufrufe: 999

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:42   Titel: AW: unbekannte 4-stellige Zahl aus einem String auslesen Version: Office 2003
Die Lösung mit Regexp is ja nicht schlecht, aber wie wollt ichr die Zahlen
den Datensätzen zuordnen?
  Thema: Code verkürzen 
Phelan XLPH

Antworten: 4
Aufrufe: 214

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:38   Titel: AW: Code verkürzen Version: Office 2003
Die Farben in der Legende ändern sich doch mit.

Sub Diafärben()
Dim sc As Integer
Dim p As Integer

Application.ScreenUpdating = False
With Worksheets(2)
For sc = 1 To 3
For p = 1 To 3
.ChartObjects(1).Chart.SeriesCollection(sc).Points(p).Interior.Color = .Cells(3, sc + 1).Interior.Color
.ChartObjects(2).Chart.SeriesCollection(sc).Points(p).Interior.Color = .Cells(8, sc + 1).Interior.Color
Next
Next
End With
Application.ScreenUpdating = False
End Sub
  Thema: Ranges zwischen Workbooks kopieren und Workbook_BeforeClose 
Phelan XLPH

Antworten: 7
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:26   Titel: AW: Ranges zwischen Workbooks kopieren und Workbook_BeforeCl Version: Office 2010
Wozu das abspeichern als Transfer?
  Thema: Zielbereich des Spezialfilters variabel 
Phelan XLPH

Antworten: 12
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2012, 17:13   Titel: AW: Zielbereich des Spezialfilters variabel Version: Office 2010
Oder so:
 
Seite 206 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 203, 204, 205, 206, 207, 208, 209 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks