Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 452 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 449, 450, 451, 452, 453, 454, 455 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Statt Debug-Fehler sprechende Fehlermeldung an den Anwender 
Phelan XLPH

Antworten: 2
Aufrufe: 1033

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 16:26   Titel: AW: Statt Debug-Fehler sprechende Fehlermeldung an den Anwen Version: Office 2003
Oder so:
Sub SprechendeFehlermeldung()
Dim d As Variant
On Error GoTo FEHLER
d = 1 / 0
FEHLER:
If Err = 11 Then
Application.Speech.Speak "Error Number" & Err & " has occurred"
MsgBox "Division durch Null ist nicht möglich!"
End If
End Sub
  Thema: VBA von wert bis wert in Spalten ausführen 
Phelan XLPH

Antworten: 6
Aufrufe: 193

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 16:17   Titel: AW: VBA von wert bis wert in Spalten ausführen Version: Office 2003
Ach kleinerDruide, das hört man doch gerne.
  Thema: Leerze Zeilen löschen 
Phelan XLPH

Antworten: 27
Aufrufe: 703

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 16:12   Titel: AW: Leerze Zeilen löschen Version: Office 2007
Hallo Micha,

hast du meinen Code versucht zu testen?
Lad doch irgendwo die Datei hoch.
  Thema: Kalender als Filter benutzen 
Phelan XLPH

Antworten: 1
Aufrufe: 492

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 16:11   Titel: AW: Kalender als Filter benutzen Version: Office 2003
Hallo Hack,

ich hab hier eine Lösung mit "einfachen" ComboBoxen.
M.E. ist es einfacher wenn die Daten direkt vorgegen werden.
  Thema: Ländercluster mit Case Select 
Phelan XLPH

Antworten: 2
Aufrufe: 710

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 15:18   Titel: AW: Ländercluster mit Case Select Version: Office 2003
Hallo Helen,

das geht so:

Sub ph()
Select Case Land
Case "Land1":
Cluster1
Case "Land2", "Land3":
Cluster2
Case Else
MsgBox "Keine Land!"
End Select
End Sub[/code]
  Thema: Verketten von Feldinhalten bei n:n Beziehung über Makro 
Phelan XLPH

Antworten: 1
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 15:10   Titel: AW: Verketten von Feldinhalten bei n:n Beziehung über Makro Version: Office 2003
Hallo guezel72,

hiemit müsste es funktionieren:
Sub ph()
Dim arr As Variant
Dim i As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr)
If Not Dic.Exists(arr(i, 1)) Then
Dic(arr(i, 1)) = arr(i, 2)
Else
Dic(arr(i, 1)) = Dic(arr(i, 1)) & ";" & arr(i, 2)
End If
Next
With Worksheets.Add
.Range("A1").Resize(Dic.Count) = WorksheetFunction.Transpose(Dic.Keys)
.Range("B1").Resize(Dic.Count) = WorksheetFunction.Transpose(Dic.Items)
End With
End Sub
  Thema: Wert aus Steuerelement an TextBox 
Phelan XLPH

Antworten: 2
Aufrufe: 305

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 14:58   Titel: AW: Wert aus Steuerelement an TextBox Version: Office 2003
Hallo Tutti31,

so geht das:

Private Sub Calendar1_Click()
TextBox1.Text = Calendar1.Value
End Sub
  Thema: VBA von wert bis wert in Spalten ausführen 
Phelan XLPH

Antworten: 6
Aufrufe: 193

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 14:54   Titel: AW: VBA von wert bis wert in Spalten ausführen Version: Office 2003
Ihr nabt ja sooo recht, vorallem der Osterhase Very Happy ,

Sub ph()
Dim rngBereich As Range
Dim rngC As Range
Dim strVon As String
Dim strBis As String

strVon = "KW01 2009"
strBis = "KW10 2010"
With Tabelle1 'ANPASSEN
Set rngBereich = Intersect(.UsedRange, .Rows(1)) 'Anpassen Zeile (1)
End With
For Each rngC In rngBereich
Select Case rngC.Text
Case strVon To strBis:
'dein Code
Case Else
MsgBox "Keine Übereinstimmung!"
End Select
Next
End Sub
  Thema: VBA von wert bis wert in Spalten ausführen 
Phelan XLPH

Antworten: 6
Aufrufe: 193

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 13:57   Titel: AW: VBA von wert bis wert in Spalten ausführen Version: Office 2003
Hallo kleiner Druide,

versuch es hiermit mal:

Sub ph()
Dim rngBereich As Range
Dim rngC As Range
Dim strVon As String
Dim strBis As String

strVon = "KW01 2009"
strBis = "KW10 2010"

For Each rngC In rngBereich
Select Case rngC.Text
Case strVon To strBis:
'dein Code
Case Else
MsgBox "Keine Übereinstimmung!"
End Select
Next
End Sub
  Thema: Makro zerlegt Formatierung beim Ersetzen 
Phelan XLPH

Antworten: 4
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 13:48   Titel: AW: Makro zerlegt Formatierung beim Ersetzen Version: Office 2003
Oh ja dann kann man sich eine Zeile sparen:
Private Sub CommandButton1_Click()
With Columns(1)
.Replace ",", "."
.Replace "/", ""
End With
End Sub
  Thema: Querytable Connectionproblem 
Phelan XLPH

Antworten: 33
Aufrufe: 2613

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 13:43   Titel: AW: Querytable Connectionproblem Version: Office 2007
Hallo Case,

ja das ist mir auch bekannt.

Es muss doch ein variante geben die Über die 2^16 zeilen hinausgehen.
Ich teste jetzt nochmal mit Zugriff auf eine externe Datei.
  Thema: Leerze Zeilen löschen 
Phelan XLPH

Antworten: 27
Aufrufe: 703

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 13:31   Titel: AW: Leerze Zeilen löschen Version: Office 2007
Hallo Micha,

schau mal ob das hier etwas zügiger ist:

Sub ph()
Dim strSuch1 As String
Dim strSuch2 As String

strSuch1 = "---"
strSuch2 = "Matser P"

With ThisWorkbook.Sheets("Tabelle1").UsedRange
With .Columns(.Columns.Count).Offset(, 1)
.Formula = "=IF(OR(ISNUMBER(SEARCH(""" & strSuch1 & _
""",A1)),ISNUMBER(SEARCH(""" & strSuch2 & """,A1))),TRUE,"""")"
.Copy
.PasteSpecial xlPasteValues
.EntireRow.Sort .Cells(1), xlAscending, Header:=xlYes
.Offset(1).SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
.ClearContents
End With
End With
End Sub
  Thema: Makro zerlegt Formatierung beim Ersetzen 
Phelan XLPH

Antworten: 4
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 12:50   Titel: AW: Makro zerlegt Formatierung beim Ersetzen Version: Office 2003
Hallo JhonnyVR,

ich kenne da auch nur eine Lösung mit Umwegen:
Private Sub CommandButton1_Click()
With Columns(1)
.Replace ",", "#"
.Replace "/", ""
.Replace "#", "."
End With
End Sub
  Thema: Textbox - Combobox 
Phelan XLPH

Antworten: 4
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 12:24   Titel: AW: Textbox - Combobox Version: Office 2007
Sorry,

so müsste es gehen:
Private Sub UserForm_Initialize()
ComboBox1.Value = UserForm1.TextBox1.Text
End Sub
  Thema: Textbox - Combobox 
Phelan XLPH

Antworten: 4
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2010, 11:36   Titel: AW: Textbox - Combobox Version: Office 2007
ComboBox1.Value=TextBox1.Text
 
Seite 452 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 449, 450, 451, 452, 453, 454, 455 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS