Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 68 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 65, 66, 67, 68, 69, 70, 71 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Function ruft sich selber auf 
Phelan XLPH

Antworten: 8
Aufrufe: 265

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. März 2013, 09:19   Titel: AW: Function ruft sich selber auf Version: Office 2010
Wahrscheinlich wird 'ValFunc' als UDF benutzt, d. h. sie wird in einer Zelle
in Excel angewandt wie die üblichen Excelfunktionen (wie z.B. =SUMME(), =MIN(), usw.), bloß dann steht in der Zelle eben =ValFunc(...,...).

Bei jeder Zell-Änderung wird die Berechnung angeschmissen ( vorausgesetzt, sie ist
auf 'automatisch' eingestellt) und somit wird die UDF durchlaufen.
  Thema: Userform - TRANSPARENT - jedoch Buttons und Listen anzeigen 
Phelan XLPH

Antworten: 11
Aufrufe: 381

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. März 2013, 02:31   Titel: AW: Userform - TRANSPARENT - jedoch Buttons und Listen anzei Version: Office 2010
@Isi,

wo findet man (frau) so einen Code?
  Thema: Viele einzelne Files in eine bearbeitbare Liste konsolidiere 
Phelan XLPH

Antworten: 3
Aufrufe: 58

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2013, 18:54   Titel: AW: Viele einzelne Files in eine bearbeitbare Liste konsolid Version: Office 2007
Hallo,

das baut sich kein Mensch nach. Lad ein Beispiel hoch.
  Thema: abhängige comboboxen in tabellenblatt 
Phelan XLPH

Antworten: 2
Aufrufe: 118

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2013, 15:36   Titel: AW: abhängige comboboxen in tabellenblatt Version: Office 2003
Hallo,

hier ein Beispiel.
  Thema: Multiple Datenauswahl 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2013, 22:31   Titel: AW: Multiple Datenauswahl Version: Office 2007
Hallo,

und welche 5 sollen das sein?
  Thema: Multiple Datenauswahl 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2013, 11:27   Titel: AW: Multiple Datenauswahl Version: Office 2007
Hallo,

so in etwa?
  Thema: Datenbank in Excel 
Phelan XLPH

Antworten: 19
Aufrufe: 960

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2013, 08:33   Titel: AW: Datenbank in Excel Version: Office 2010
Hallo.

Erweiterung:
Datenbank mit Anzeige der ID in der ListBox und die Erzeugung einer Kopie des Arbeitsblattes 'Datenbank' als Backup-Datei beim Schließen der frmAnzeige-Userform.

Filterung:
Umschaltung zwischen Teil- und Gesamt-Vergleich des TextBox-Inhaltes durch
Klick auf das graue Rechteck links oben im Filter-Frame.
  Thema: Excel TextBox Wert - darf nicht größer als das aktuelle Jahr 
Phelan XLPH

Antworten: 4
Aufrufe: 256

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2013, 16:27   Titel: AW: Excel TextBox Wert - darf nicht größer als das aktuelle Version: Office 2003
Private Sub Calendar2_Click()
if year(date)>= year(Calendar2.Value ) then
TextBox2.Value = Calendar2.Value
else
TextBox2.Value = empty
MsgBox "Datum-Wahl nur im aktuellen Jahr möglich",,"Info"
endif
End Sub
  Thema: mehrere getattribute als Bedingung aus IE auslesen 
Phelan XLPH

Antworten: 2
Aufrufe: 112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2013, 07:05   Titel: AW: mehrere getattribute als Bedingung aus IE auslesen Version: Office 2007
Hallo Smile

Sub x()
Dim a As Object
Dim datDatumID1 As Date
Dim datDatumID2 As Date

For Each a In ie.document.getelementsbytagname("td")
Select Case a.getattribute("headers")
Case "id1": datDatumID1 = CDate(a.innertext)
Case "id2": datDatumID2 = CDate(a.innertext)
End Select
Next

If datDatumID1 < Date And datDatumID2 < Date Then
'Link anklicken
Else
'Abbruch oder sonst was...
End If

End Sub
  Thema: Datenimport aus geschlossener Mappe Laufzeitfehler 
Phelan XLPH

Antworten: 10
Aufrufe: 145

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2013, 06:46   Titel: AW: Datenimport aus geschlossener Mappe Laufzeitfehler Version: Office 2010
ThisWorkbook.Worksheets(strSheet).Range(rng.Address) = _
GetValue(strPath, strWBook, strSheet, rng.Address)
  Thema: Autofiltern, kopieren und neue Tabellenblätter anlegen 
Phelan XLPH

Antworten: 6
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2013, 22:30   Titel: AW: Autofiltern, kopieren und neue Tabellenblätter anlegen Version: Office 2010
Sub AutofilterRangeCopy()
Dim lngCnt As Long
Dim avCriteria As Variant
Dim intFilterColumn As Integer

intFilterColumn = 6

Application.ScreenUpdating = False

With Tabelle1
If .AutoFilterMode Then .AutoFilterMode = False
.Cells(intFilterColumn).AutoFilter

avCriteria = Unique(.AutoFilter.Range.Columns(intFilterColumn).Value)

For lngCnt = LBound(avCriteria) To UBound(avCriteria)
.AutoFilter.Range.AutoFilter Field:=intFilterColumn, Criteria1:=avCriteria(lngCnt)
.AutoFilter.Range.Copy Destination:=wsNeu(avCriteria(lngCnt)).Range("A1")
Next
If .FilterMode Then .ShowAllData
'.AutoFilterMode = False
End With
End Sub

Function Unique(avData As Variant)
Dim I As Long
Const t As String = vbTab
If Not IsArray(avData) Then Unique = Array( ...
  Thema: Tabellen auf Gleichheit prüfen mit Macro 
Phelan XLPH

Antworten: 3
Aufrufe: 285

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2013, 21:40   Titel: AW: Tabellen auf Gleichheit prüfen mit Macro Version: Office 2010
Wozu VBA?

Bedingte Formatierung:
Formel:
=NICHT(IDENTISCH(A1;Tabelle2!A1))
Zellfarbe:
Rot
Wird angewendet auf:
=$1:$1048576
(kannst du auch kleiner wählen)
  Thema: Datenbank in Excel 
Phelan XLPH

Antworten: 19
Aufrufe: 960

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2013, 21:06   Titel: AW: Datenbank in Excel Version: Office 2010
ersetze das:
lngZ = Evaluate("Max((" & .Columns(1).Address(, , , 1) & "<>"""")*Row(" & .Columns(1).Address(, , , 1) & "))")


durch das:
lngZ = LastRow(.Columns(1).Value)

Füge folgende Funktion in Modul1 ein:
Public Function LastRow(avData As Variant)
Dim lngCnt As Long
LastRow = UBound(avData)
For lngCnt = UBound(avData) To 1 Step -1
If avData(lngCnt, 1) <> Empty Then _
LastRow = lngCnt: Exit Function
Next
End Function
  Thema: Code extrem Langsam brauche dringent Hilfe 
Phelan XLPH

Antworten: 14
Aufrufe: 172

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2013, 19:00   Titel: AW: Code extrem Langsam brauche dringent Hilfe Version: Office 2010
Wie ist die Durchlaufzeit?
  Thema: Datenbank in Excel 
Phelan XLPH

Antworten: 19
Aufrufe: 960

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2013, 18:57   Titel: AW: Datenbank in Excel Version: Office 2010
Bug: Beim Versuch einen Eintrag zu ändern, bei leerer Liste.
Lösung: Aufruf der des Änderung-Formulars nur bei vorhandenen Daten möglich.
 
Seite 68 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 65, 66, 67, 68, 69, 70, 71 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web