Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 256 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 253, 254, 255, 256, 257, 258, 259 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Combo abhängig von Combo 
Phelan XLPH

Antworten: 4
Aufrufe: 245

BeitragForum: Access Programmierung / VBA   Verfasst am: 27. Mai 2011, 20:14   Titel: Combo abhängig von Combo Version: Office 2007
Hallo,

In einem Formaular möchte die Einträge in Combo2 abhängig von
Combo1 ändern.

Das klappt nur bedingt. Ich muss beim betätigen von Combo2
nochmals den Parameterwert eingeben.

Warum geht das nicht direkt?

Danke
Private Sub cmbAuftrag_Change()
Dim sql As String

sql = "SELECT Buchungen" _
& " FROM tblAufträge" _
& " WHERE Auftrag = " & Me.cmbAuftrag.Text _
& " ORDER BY Buchungen"
Me.cmbBuchungen.RowSourceType = "Table/Query"
Me.cmbBuchungen.RowSource = sql
End Sub
  Thema: Gebundene Textbox 
Phelan XLPH

Antworten: 1
Aufrufe: 182

BeitragForum: Access Formulare   Verfasst am: 26. Mai 2011, 17:59   Titel: Gebundene Textbox Version: Office 2007
Hallo,

Ich versuche ein individuelles Formular zu stricken.

Ich möchte eine Textbox in das Formular gebunden setzen.

Geht das?
  Thema: Text in Spalte suchen und rot markieren 
Phelan XLPH

Antworten: 5
Aufrufe: 998

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Mai 2011, 12:49   Titel: AW: Text in Spalte suchen und rot markieren Version: Office 2003
oder so:
Sub Kat_1()
With Sheet2
Call ph(.Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value)
End With
End Sub

Sub ph(ByVal arrKrit As Variant)
Dim s As String
Dim i As Long
Dim n As Long
Dim k As Long
Dim Dic As Object
Dim arrKritF As Variant
Dim arrPos As Variant
Dim rngC As Range
Dim rngBereich As Range


Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle1
Set rngBereich = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

rngBereich.Interior.ColorIndex = xlColorIndexNone
rngBereich.Font.ColorIndex = xlColorIndexAutomatic
rngBereich.Font.Bold = False

For Each rngC In rngBereich
s = rngC.Text
For k = 1 To UBound ...
  Thema: schreibe von Excell in txt Datei ohne Exponentialschreibweis 
Phelan XLPH

Antworten: 17
Aufrufe: 483

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2011, 12:19   Titel: AW: schreibe von Excell in txt Datei ohne Exponentialschreib Version: Office 2003
welches Format haben deine Zellen?
..Test?
..Zahl?
...Standard?
...oder,...oder?
  Thema: Argument nicht optional 
Phelan XLPH

Antworten: 20
Aufrufe: 1857

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Mai 2011, 16:43   Titel: AW: Argument nicht optional Version: Office 2010
Das wichtigste hast du vergessen. Wie sieht der Funktionsaufruf aus?
  Thema: Daten in Array sortieren und in Spalte schreiben 
Phelan XLPH

Antworten: 6
Aufrufe: 1198

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Mai 2011, 16:30   Titel: AW: Daten in Array sortieren und in Spalte schreiben Version: Office 2007
schau dir das an: [url=http://www.office-loesung.de/ftopic311971_0_0_asc.php]Sortierte Liste, nur Unikate
  Thema: Aufeinanderfolgende Nullen zählen 
Phelan XLPH

Antworten: 11
Aufrufe: 684

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Mai 2011, 22:51   Titel: AW: Aufeinanderfolgende Nullen zählen Version: Office 2007
Oder so Smile

Sub ph()
Dim rngArea As Range
Dim i As Long
Dim ar As Variant
With Range("A1").CurrentRegion.Columns(1)
With .ColumnDifferences(.Find(1)).Areas
ReDim ar(1 To .Count, 1 To 1)
For i = 1 To .Count
ar(i, 1) = .Item(i).Rows.Count
Next
End With
End With
Range("C1").Resize(UBound(ar)) = ar
End Sub
  Thema: Progressbar benutzen, ggf. auch mit do while Schleife. 
Phelan XLPH

Antworten: 7
Aufrufe: 651

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Mai 2011, 21:14   Titel: AW: Progressbar benutzen, ggf. auch mit do while Schleife. Version: Office 2007
Hallo kiwi, poste die Codes
  Thema: Nachhilfe in VBA gesucht 
Phelan XLPH

Antworten: 6
Aufrufe: 781

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Mai 2011, 20:41   Titel: AW: Nachhilfe in VBA gesucht Version: Office 97
Top für Einsteiger: [url=ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf]VBA – Programmierung mit Excel Grundlagen
  Thema: Makro Text bis Leerzeichen auslesen 
Phelan XLPH

Antworten: 4
Aufrufe: 1032

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Mai 2011, 20:37   Titel: AW: Makro Text bis Leerzeichen auslesen Version: Office 2007
MsgBox Split(DeineVariableMitText, " ")(0)
  Thema: Datum letztes Jahr 
Phelan XLPH

Antworten: 2
Aufrufe: 1087

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Mai 2011, 22:26   Titel: AW: Datum letztes Jahr Version: Office 2010
Worksheets("Ausdruck").Range("L12").Value = Year(Date)-1
  Thema: Sortierung einer Tabelle 
Phelan XLPH

Antworten: 13
Aufrufe: 491

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Mai 2011, 19:09   Titel: AW: Sortierung einer Tabelle Version: Office 2007
Sub ph()
Dim i As Long
Dim D As Object
Dim ar As Variant
Dim tmp As Variant

Set D = CreateObject("Scripting.Dictionary")

ar = Intersect(ActiveSheet.UsedRange, Range("A:B"))

For i = 1 To UBound(ar)
If ar(i, 1) <> "" Then
If IsNumeric(ar(i, 2)) Then
D(ar(i, 1)) = D(ar(i, 1)) & ";" & Replace(ar(i, 2), ",", ".")
Else
D(ar(i, 1)) = D(ar(i, 1)) & ";" & ar(i, 2)
End If
End If
Next

ar = D.keys
Cells(1, 4).Resize(, D.Count) = D.keys
For i = 1 To D.Count
tmp = Split(Mid(D(ar(i - 1)), 2), ";")
Cells(2, i + ...
  Thema: Suchfunktion über Userform 
Phelan XLPH

Antworten: 48
Aufrufe: 3064

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Mai 2011, 18:53   Titel: AW: Suchfunktion über Userform Version: Office 2003
Wo steht denn die ID?
  Thema: Addition von Textboxen 
Phelan XLPH

Antworten: 6
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Mai 2011, 22:42   Titel: AW: Addition von Textboxen Version: Office 2003
Private Sub CommandButton1_Click()
TextBox3 = StrToVal(TextBox1) + StrToVal(TextBox2)
End Sub

Function StrToVal(sWert As String)
StrToVal = Val(Replace(sWert, ",", "."))
End Function
  Thema: Modal-Wert ermitteln in Abhängigkeit 
Phelan XLPH

Antworten: 9
Aufrufe: 744

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Mai 2011, 19:09   Titel: AW: Modal-Wert ermitteln in Abhängigkeit Version: Office 2010
Sub ModalwerteErmitteln()
Dim arDaten As Variant
Dim arID As Variant
Dim arMW() As Variant
Dim arErg As Variant
Dim arH As Variant
Dim arTmp As Variant
Dim anzMax As Long
Dim D As Object
Dim i As Long
Dim j As Long

Dim HS As Double
Dim HF As Double
Dim S25 As Double

With Tabelle1.UsedRange
arDaten = Intersect(.Cells, .Offset(1))
End With

Set D = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arDaten)
D(arDaten(i, 1)) = D(arDaten(i, 1)) & "|" & arDaten(i, 9)
Next

arID = D.keys

ReDim arErg(1 To UBound(arID) + 1, 1 To 2)

For j = 0 To D.Count - 1
arTmp = Split(Mid&# ...
 
Seite 256 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 253, 254, 255, 256, 257, 258, 259 ... 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