Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 603 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 600, 601, 602, 603, 604, 605, 606 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Textboxen mit Tabelle verbinden. 
Phelan XLPH

Antworten: 12
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 15:00   Titel: AW: Textboxen mit Tabelle verbinden. Version: Office 2003
Ja hast du denn eine Tabelle mit dem Namen "Mitglieder"???
  Thema: Zellen mit externen Verknüpfungen identifizieren 
Phelan XLPH

Antworten: 7
Aufrufe: 578

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 14:52   Titel: AW: Zellen mit externen Verknüpfungen identifizieren Version: Office 2003
so:

Variante1:(sichere)
Sub Variante1()
Dim wks As Worksheet
Dim rngFormula As Range
Dim Zell As Range
Dim strAdr As String
For Each wks In ThisWorkbook.Worksheets
On Error Resume Next
Set rngFormula = wks.UsedRange.SpecialCells(xlCellTypeFormulas)
If Err.Number = 0 Then
For Each Zell In rngFormula
If InStr(Zell.Formula, "[") > 0 Then _
strAdr = strAdr & ";" & wks.Name & "!" & Zell.Address(0, 0)
Next
Else
Err.Clear
End If
Next
If strAdr <> "" Then
strAdr = Mid(strAdr, 2)
Worksheets.Add Sheets(1)
Range("A1").Resize(UBound(Split(strAdr, ";")) + 1) = _
WorksheetFunction.Transpose(Split(strAdr, ";"))
End If
End Sub


Variante2:(könnte Probleme der Change-Ereignisse der einzelnen Blätte ...
  Thema: Zellen mit externen Verknüpfungen identifizieren 
Phelan XLPH

Antworten: 7
Aufrufe: 578

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 14:18   Titel: AW: Zellen mit externen Verknüpfungen identifizieren Version: Office 2003
Killen bedeutet Leere Zell? also den Verweis löschen?
  Thema: Nur Formeln übernehmen, die Werte haben. 
Phelan XLPH

Antworten: 10
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:36   Titel: AW: Nur Formeln übernehmen, die Werte haben. Version: Office 2003
Am Murdoc vom A-Team hier B.A.

Umwandlung:Formelwerte in Festwerte
zell.Value = zell.Value

mit HasFormula muss ich erstmal alle
Zellen abgrasen das entfällt bei
SpecialCells(xlCellTypeFormulas), das
mir auf einen Schlag alle Formelbereiche liefert, die
ich in einer Schleife nach einem LLeerstring abfrage.
  Thema: Combobox füllen 
Phelan XLPH

Antworten: 13
Aufrufe: 787

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:29   Titel: AW: Combobox füllen Version: Office 2003
HÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Shock Shock
  Thema: Textboxen mit Tabelle verbinden. 
Phelan XLPH

Antworten: 12
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:27   Titel: AW: Textboxen mit Tabelle verbinden. Version: Office 2003
erhälst du gar keine werte oder falsche?

Falls falsch, schmeiss blaumarkiertes raus.
txtSeit.Text = Zell.Offset(Zell, 1)
  Thema: Zeilen zählen in markiertem Bereich 
Phelan XLPH

Antworten: 13
Aufrufe: 937

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:16   Titel: AW: Zeilen zählen in markiertem Bereich Version: Office 2003
das kann nur an dem Kriterium "J" liegen.

ich verwende das Große die anderen das Kleine, und beide male 0 als Ergebnis.

Dann steht da nicht "j" oder "J" drin.

hiermit findet er alle Zellen(Zeile) in denen ein "j" oder ein "J" vorkommen.
Sub ZeilenZählenWenn()
Dim Zell As Range
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
For Each Zell In Selection
If Trim(LCase(Zell.Text)) Like "*j*" Then _
Dic(Zell.Row) = 0
Next
MsgBox Dic.Count
Set Dic = Nothing
End Sub
  Thema: Nur Formeln übernehmen, die Werte haben. 
Phelan XLPH

Antworten: 10
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:07   Titel: AW: Nur Formeln übernehmen, die Werte haben. Version: Office 2003
Der Fehler: fehler:1004 keine zelle gefunden. geht auch in Ordnung.
Das bedeutet dass sich im Tabellenblatt keine Formeln befinden
  Thema: Textboxen mit Tabelle verbinden. 
Phelan XLPH

Antworten: 12
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 13:04   Titel: AW: Textboxen mit Tabelle verbinden. Version: Office 2003
ist das richtig an dem Code sind 3 veschiedemne TextBoxen beteiligt?
  Thema: Combobox füllen 
Phelan XLPH

Antworten: 13
Aufrufe: 787

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 12:58   Titel: AW: Combobox füllen Version: Office 2003
klar "unzureichende Referenzierung"

For Each c In Worksheets("Legende").Range(.Cells(18, 1), .Cells(letzteZeile, 1))

@Murdoc
das solltest du dir mal anschauen!!!
  Thema: Wechselbeziehung zwischen zwei Zeilen 
Phelan XLPH

Antworten: 9
Aufrufe: 280

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 12:55   Titel: AW: Wechselbeziehung zwischen zwei Zeilen Version: Office XP (2002)
-Rechtsklick auf den TabellenReiter
-Code anzeigen...

Da hinein.
...und Gott sprach es werde Licht, doch die Sonne fand den Schalter nicht Laughing
  Thema: Combobox füllen 
Phelan XLPH

Antworten: 13
Aufrufe: 787

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 12:44   Titel: AW: Combobox füllen Version: Office 2003
Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Legende").Range("A18:A36").Value
End Sub

blaumarkierte Sachen Überprüfen
  Thema: Zeilen zählen in markiertem Bereich 
Phelan XLPH

Antworten: 13
Aufrufe: 937

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 12:31   Titel: AW: Zeilen zählen in markiertem Bereich Version: Office 2003
Hi,

hat mich auch interessiert, hier auch noch ne Variante.
Dabei spielt es Keine Rolle wie du was selektierst.

Sub ZeilenZählenWenn()
Dim zell As Range
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
For Each zell In Selection
If zell.Text = "J" Then _
Dic(zell.Row) = 0
Next
MsgBox Dic.Count
Set Dic = Nothing
End Sub
  Thema: Textbox - Listbox -> Suchfunktion? 
Phelan XLPH

Antworten: 4
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 11:38   Titel: AW: Textbox - Listbox -> Suchfunktion? Version: Office XP (2002)
hier ein Bsp:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = TextBox1.Text Then
ListBox1.Selected(i) = True
Exit For
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim arr(0 To 1000) As Variant
Dim i As Long
Randomize
For i = 0 To 1000
arr(i) = Int((10000 + 1) * Rnd)
Next
ListBox1.List = arr
End Sub
  Thema: Textbox - Listbox -> Suchfunktion? 
Phelan XLPH

Antworten: 4
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Jul 2009, 11:19   Titel: AW: Textbox - Listbox -> Suchfunktion? Version: Office XP (2002)
und wie soll die Ausgabe erfolgen?
 
Seite 603 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 600, 601, 602, 603, 604, 605, 606 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum