Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 20 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 17, 18, 19, 20, 21, 22, 23 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Mit Makro sortieren 
Phelan XLPH

Antworten: 6
Aufrufe: 131

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jan 2014, 21:28   Titel: AW: Mit Makro sortieren Version: Office 2003
Hallo Chris,

eine mögl. Variante:

Sub xlph()

Dim cvarItem As Variant
Dim objSortListe As Object

With Tabelle1.Range("A1").CurrentRegion.Resize(, 5)

If WorksheetFunction.CountA(.Columns(5).Offset(1, 1)) <= 1 Then
MsgBox "Keine Sortier-Liste! ABBRUCH!!!": Exit Sub
End If

Set objSortListe = CreateObject("scripting.dictionary")

For Each cvarItem In .Columns(5).Offset(1, 1).Value
If Not IsEmpty(cvarItem) Then objSortListe(CStr(cvarItem)) = Empty
Next

Application.AddCustomList ListArray:=objSortListe.Keys

.Sort .Cells(1, 5), xlAscending, Header:=xlYes, _
OrderCustom:=Application.CustomListCount + 1

Application.DeleteCustomList ListNum:= ...
  Thema: Textbox in Abhängigkeit von Textbox füllem 
Phelan XLPH

Antworten: 3
Aufrufe: 60

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jan 2014, 14:21   Titel: AW: Textbox in Abhängigkeit von Textbox füllem Version: Office 2013
Txt1.Value = "Adresse"
Txt2.Value = Worksheetfunction.VLookup(Txt1.Text, Range("A:B"),2,0)
  Thema: Zeilennummer finden mit match 
Phelan XLPH

Antworten: 14
Aufrufe: 186

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jan 2014, 13:15   Titel: AW: Zeilennummer finden mit match Version: Office 2010
Hallo,

wenn die Variable, die den Rückgabewert erhält, als Variant deklariert ist,
dann wird eine andere folgende Sythax benutzt:

Dim zeile As Variant

zeile = Application.Match("xyz", Workbooks("daten.xlsx").Sheets("2013").Columns(1), 0)

Sollte der gesuchte Wert nicht gefunden werden, so wird ein Fehlerwert zurückgegeben.

Dieser lässt sich wie folgt abfragen:
If Not IsNumerich(zeile) Then MsgBox "Kein Fund!": Exit Sub

In deinem Beispiel sollte vorausgesetzt sein, dass der gesuchte Wert auch
vorhanden ist.
  Thema: Spalten füllen in einer gefilterten Liste 
Phelan XLPH

Antworten: 2
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jan 2014, 10:32   Titel: AW: Spalten füllen in einer gefilterten Liste Version: Office 2007
Hallo,

ein mögl. Variante:

Sub xlph()
Dim i As Long
Dim z As Long
Dim Inkrement As Long

Inkrement = 1

With Tabelle1
If .AutoFilterMode Then
With .AutoFilter.Range
For i = 2 To .Rows.Count
If Not .Rows(i).Hidden Then
z = z + 1
.Cells(i, 1).Value = Inkrement
End If
If z >= 12 Then
z = 0
Inkrement = Inkrement + 1
End If
Next
End With
Else
MsgBox "Filter nicht gesetzt!"
End If
End With
End Sub
  Thema: In (Userform) Textbox nach Datum suchen 
Phelan XLPH

Antworten: 5
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Dez 2013, 15:30   Titel: AW: In (Userform) Textbox nach Datum suchen Version: Office 2010
Ja, das wär ne Möglichkeit.
  Thema: In (Userform) Textbox nach Datum suchen 
Phelan XLPH

Antworten: 5
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Dez 2013, 15:14   Titel: AW: In (Userform) Textbox nach Datum suchen Version: Office 2010
Ja, das macht keinen Unterschied, meinst du nicht?
  Thema: In (Userform) Textbox nach Datum suchen 
Phelan XLPH

Antworten: 5
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Dez 2013, 14:31   Titel: AW: In (Userform) Textbox nach Datum suchen Version: Office 2010
Set zelle = .Columns("DVery Happy").Find(CDate(TextBox1.Value), LookIn:=xlValues)
  Thema: Spalten per Butten tauschen 
Phelan XLPH

Antworten: 3
Aufrufe: 54

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2013, 12:39   Titel: AW: Spalten per Butten tauschen Version: Office 2013
Sub xlph()
Dim rngColTmp As Range
Dim rngSelection As Range

Application.ScreenUpdating = False

With ActiveSheet

Set rngSelection = ActiveWindow.RangeSelection
Set rngColTmp = .UsedRange.Columns(.UsedRange.Columns.Count).Offset(, 1)

.Columns(1).Copy: rngColTmp.PasteSpecial xlPasteValues
.Columns(3).Copy: .Columns(1).PasteSpecial xlPasteValues
rngColTmp.Copy: .Columns(3).PasteSpecial xlPasteValues
rngColTmp.ClearContents

.Columns(4).ClearContents

rngSelection.Select

End With

Application.ScreenUpdating = True

Set rngColTmp = Nothing
Set rngSelection = Nothing

End Sub
  Thema: Spalten per Butten tauschen 
Phelan XLPH

Antworten: 3
Aufrufe: 54

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2013, 09:46   Titel: AW: Spalten per Butten tauschen Version: Office 2013
Hallo,

versuch es hiermit:

Sub xlph()
Dim rngColTmp As Range
Dim rngSelection As Range

Application.ScreenUpdating = False

With ActiveSheet

Set rngSelection = ActiveWindow.RangeSelection
Set rngColTmp = .UsedRange.Columns(.UsedRange.Columns.Count).Offset(, 1)

.Columns(1).Copy: rngColTmp.PasteSpecial xlPasteValues
.Columns(3).Copy: .Columns(1).PasteSpecial xlPasteValues
rngColTmp.Copy: .Columns(3).PasteSpecial xlPasteValues
rngColTmp.ClearContents

rngSelection.Select

End With

Application.ScreenUpdating = True

Set rngColTmp = Nothing
Set rngSelection = Nothing

End Sub
  Thema: Einfügen verschiedener Dateinamen in Extraspalte 
Phelan XLPH

Antworten: 14
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2013, 20:36   Titel: AW: Einfügen verschiedener Dateinamen in Extraspalte Version: Office 2007
Hallo Pere,

-Pack den Code in eine neue Mappe und speicher diese als AddInn.
-AddInn-Mappe schließen.
-Neue Mappe öffnen und das AddInn einbinden
-Prozedur aufrufen


Sub MergeXLSFilesNEW()
'---- Makro zum Einlesen der Zeilen und Spalten verschiedener Quell-Dateien in eine Ziel-Datei

'--- Deklaration der Variablen
Dim i As Long
Dim sPath As String
Dim sFile As String
Dim sFileWithoutSuffix As String
Dim vFileToOpen As Variant
Dim lLastRowSrc As Long
Dim lLastColSrc As Long
Dim bHeadline As Boolean
Dim iCalc As Integer
Dim lLastRowDest As Long
Dim sFortschrittMeldung As String

'---- Auswahl der Dateien
vFileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
If Not IsArray(vFileToOpen) Then Exit Sub

If WorksheetFunction.CountA(Activ ...
  Thema: Einfügen verschiedener Dateinamen in Extraspalte 
Phelan XLPH

Antworten: 14
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2013, 13:42   Titel: AW: Einfügen verschiedener Dateinamen in Extraspalte Version: Office 2007
Hallo,

lade bitte Quell-und Zieldatei hoch, damit ich nicht alles nachbauen muss.
  Thema: längster Verlustzeitraum berechnen im Excel (mit VBA) 
Phelan XLPH

Antworten: 22
Aufrufe: 393

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2013, 13:37   Titel: AW: längster Verlustzeitraum berechnen im Excel (mit VBA) Version: Office 2013
Hallo,

ungetestet.

Public Function VZmax(DatumVektor As Range, KursVektor As Range, _
Optional Modus As Long, Optional Position As Long)

Dim Kurs As Variant
Dim Datum As Variant

Dim i As Long

Dim KursMax As Double
Dim ZeitraumMax As Long

Dim StartZeile As Long
Dim EndeZeile As Long

Dim StartKurs As Double
Dim EndeKurs As Double

Dim StartDatum As Date
Dim EndeDatum As Date

Dim IstVerlust As Boolean

With DatumVektor.Parent
Datum = Intersect(.UsedRange, DatumVektor).Value
End With
With KursVektor.Parent
Kurs = Intersect(.UsedRange, KursVektor).Value
End With

KursMax = Kurs(1, 1)
StartZeile = LBound(Kurs) + 1

For i = LBound(Kurs) + 1 To UBo ...
  Thema: längster Verlustzeitraum berechnen im Excel (mit VBA) 
Phelan XLPH

Antworten: 22
Aufrufe: 393

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2013, 23:55   Titel: AW: längster Verlustzeitraum berechnen im Excel (mit VBA) Version: Office 2013
...das habe ich mir schon gedacht.

Versuch das hier:

Public Function VZmax(DatumVektor As Range, KursVektor As Range, _
Optional Modus As Long, Optional Position As Long)

Dim Kurs As Variant
Dim Datum As Variant

Dim i As Long

Dim KursMax As Double
Dim ZeitraumMax As Long

Dim StartZeile As Long
Dim EndeZeile As Long

Dim StartKurs As Double
Dim EndeKurs As Double

Dim StartDatum As Date
Dim EndeDatum As Date

With DatumVektor.Parent
Datum = Intersect(.UsedRange, DatumVektor).Value
End With
With KursVektor.Parent
Kurs = Intersect(.UsedRange, KursVektor).Value
End With

KursMax = Kurs(1, 1)
StartZeile = LBound(Kurs) + 1

For i = LBound(Kurs) + 1 To UBound ...
  Thema: Suche Hilfe für kleine Makro-Probleme 
Phelan XLPH

Antworten: 6
Aufrufe: 78

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2013, 23:29   Titel: AW: Suche Hilfe für kleine Makro-Probleme Version: Office 2003
Private Sub Suche_Click()
Range("E3").Value = "*" & Range("E3").Value & "*"
Range("$A$8:$AB" & ActiveSheet.UsedRange.Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("$E$2:$E$3"), Unique:=False
End Sub
  Thema: längster Verlustzeitraum berechnen im Excel (mit VBA) 
Phelan XLPH

Antworten: 22
Aufrufe: 393

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2013, 22:51   Titel: AW: längster Verlustzeitraum berechnen im Excel (mit VBA) Version: Office 2013
Yap, der Zusatz funktioniert nicht richtig.

Hiermit funktioniert auch das wieder:

Public Function VZmax(DatumVektor As Range, KursVektor As Range, _
Optional Modus As Long, Optional Position As Long)

Dim Kurs As Variant
Dim Datum As Variant

Dim i As Long

Dim KursMax As Double
Dim ZeitraumMax As Long

Dim StartZeile As Long
Dim EndeZeile As Long

Dim StartKurs As Double
Dim EndeKurs As Double

Dim StartDatum As Date
Dim EndeDatum As Date

With DatumVektor.Parent
Datum = Intersect(.UsedRange, DatumVektor).Value
End With
With KursVektor.Parent
Kurs = Intersect(.UsedRange, KursVektor).Value
End With

KursMax = Kurs(1, 1)
StartZeile = LBound(Kurs) + 1

For i = LBound(Kurs&# ...
 
Seite 20 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 17, 18, 19, 20, 21, 22, 23 ... 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 Forum