Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 231 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 228, 229, 230, 231, 232, 233, 234 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: MsgBox startet nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 180

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 13:54   Titel: AW: MsgBox startet nicht Version: Office 2007
Höchstwahrscheinlich ist "Tabelle2" beim Öffnen bereits aktiv.
  Thema: was ist hier falsch - brauche Hilfe 
Phelan XLPH

Antworten: 8
Aufrufe: 110

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 13:31   Titel: AW: was ist hier falsch - brauche Hilfe Version: Office 2007
sDateiname = Dir(sPfadImportDatei & "*.xls*", vbNormal)
  Thema: For Schleife (optimieren) 
Phelan XLPH

Antworten: 8
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 13:28   Titel: AW: For Schleife (optimieren) Version: Office 2003
Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")

With table
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
For y = 3 To lngZeilen
.Cells(y, 22) = IIf(LCase$(.Cells(y, 5)) Like "frankreich*", 1, "")
.Cells(y, 23) = IIf(.Cells(y, 10) <> "" And LCase$(.Cells(y, 5)) Like "frankreich*", 1, "")
.Cells(y, 24) = IIf(.Cells(y, 12) > Date And LCase$(.Cells(y, 5)) Like "frankreich*", 1, "")
.Cells(y, 25) = IIf(.Cells(y, 12) <= Date And LCase$(.Cells(y, 5)) Like "frankreich*", 1, "")
Next y

End With
End Sub
  Thema: eigene Excelfunktion schreiben 
Phelan XLPH

Antworten: 9
Aufrufe: 553

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 13:10   Titel: AW: eigene Excelfunktion schreiben Version: Office 2010
Public Function IS_UPPER_STRING_without_NUMBERS(Zelle As Range) As Boolean
Dim s As String, st As String, i As Integer
s = Zelle.Value2
If s = UCase$(s) Then
For i = 1 To Len(s)
If InStr("0123456789", Mid$(s, i, 1)) Then Exit Function
Next
IS_UPPER_STRING_without_NUMBERS = True
End If
End Function
  Thema: Zeichenzusammensetzung verändern 
Phelan XLPH

Antworten: 5
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 08:55   Titel: AW: Zeichenzusammensetzung verändern Version: Office 2003
1. Spalte markieren
2. Strg+H (Suchen & Ersetzen)
3. [Leerzeichen] ersetzen durch [_] (Unterstrich)
4. [-] (Bindestrich) ersetzen durch [_] (Unterstrich)
  Thema: comma separated values 
Phelan XLPH

Antworten: 15
Aufrufe: 1058

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 08:47   Titel: AW: comma separated values Version: Office 2007
weil er dazu nicht ausgelegt ist.

nimm diesen:

Function SVerweis_Array(SuchWert, Bereich, SuchSpalte, Optional Modus = True, Optional Trennzeichen = ",")
Dim ar As Variant, i As Integer
ar = Split(SuchWert, Trennzeichen)
For i = 0 To UBound(ar)
On Error Resume Next
If InStr(ar(i), ".") Then
ar(i) = WorksheetFunction.VLookup(Split(ar(i), ".")(0) & ")", Bereich, SuchSpalte, Modus)
Else
ar(i) = WorksheetFunction.VLookup(ar(i), Bereich, SuchSpalte, Modus)
End If
If Err Then Err.Clear: ar(i) = Empty
Next
SVerweis_Array = Join(ar, Trennzeichen)
End Function
  Thema: variabler String? 
Phelan XLPH

Antworten: 6
Aufrufe: 140

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 17:03   Titel: AW: variabler String? Version: Office 2003
Ich dag doch: DATENFELD!
  Thema: Sub erweitern 
Phelan XLPH

Antworten: 3
Aufrufe: 96

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 17:00   Titel: AW: Sub erweitern Version: Office 2007
wenn dann würds noch so gehen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B12:B100,N12:N100,S12:S100")) Is Nothing Then
Target = IIf(Target = "x", "", "x")
Cancel = True
End If
End Sub
  Thema: Sub erweitern 
Phelan XLPH

Antworten: 3
Aufrufe: 96

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:55   Titel: AW: Sub erweitern Version: Office 2007
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("B12:B100"),Range("N12:N100") ,Range("S12:S100"))) Is Nothing Then
Target = IIf(Target = "x", "", "x")
Cancel = True
End If
End Sub
  Thema: Leezeilen und Bestimmten Wert aus Spalte A löschen 
Phelan XLPH

Antworten: 4
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:47   Titel: AW: Leezeilen und Bestimmten Wert aus Spalte A löschen Version: Office 2003
Sub Bereinigen()
Dim i As Long
Dim x As Variant
Dim blnDel As Boolean
With Worksheets("Tabelle5") 'ANPASSEN!!!!!!!!!!!!!!!!!!!
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Not .Cells(i, 1) Like "????#######" Then .Rows(i).Delete
Next i
End With
End Sub
  Thema: variabler String? 
Phelan XLPH

Antworten: 6
Aufrufe: 140

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:29   Titel: AW: variabler String? Version: Office 2003
Verwende dazu ein Datenfeld.

Sub Datenfeld_verwalten()
Dim vntVal As Variant
vntVal = Array("a", "b", "C")

MsgBox vntVal(1)
MsgBox vntVal(0)
MsgBox vntVal(2)
End Sub
  Thema: Leezeilen und Bestimmten Wert aus Spalte A löschen 
Phelan XLPH

Antworten: 4
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:25   Titel: AW: Leezeilen und Bestimmten Wert aus Spalte A löschen Version: Office 2003
Sub Bereinigen()
Dim i As Long
With Tabelle1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If InStr(.Cells(i, 1), "xyz") Or .Cells(i, 1) = "" Then .Rows(i).Delete
Next i
End With
End Sub
  Thema: Bei klick in Zelle soll ein x erscheinen 
Phelan XLPH

Antworten: 5
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:16   Titel: AW: Bei klick in Zelle soll ein x erscheinen Version: Office 2007
Jetzt kannst du auch die ganze Spalte markieren ohne dass ein Fehler auftritt.
  Thema: Prüfen, ob erstes Zeichen in einem String eine Zahl ist? 
Phelan XLPH

Antworten: 6
Aufrufe: 906

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 16:14   Titel: AW: Prüfen, ob erstes Zeichen in einem String eine Zahl ist? Version: Office 2003
Sub FindFirstLetter()
Dim i As Long
With ThisWorkbook.Worksheets("SAP_DOWNLOAD")
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Val(.Cells(i, 1)) = 0 Then If Len(.Cells(i, 1)) Then .Rows(i).Delete
Next i
End With
End Sub
  Thema: Bei klick in Zelle soll ein x erscheinen 
Phelan XLPH

Antworten: 5
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2011, 15:45   Titel: AW: Bei klick in Zelle soll ein x erscheinen Version: Office 2007
Range()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sAdr As String
Dim arAdr As Variant
Dim i As Long
Dim rngB As Range
Dim rngC As Range

arAdr = Array("A34,A36,A44,A46,A48,A56,A58,A67,A70,A78,A81,A11,A113,A121,A123,A125", _
"A133,A135,A144,A147,A155,A158,A197,A199,A207,A209,A217,A219,A227,A229", _
"A240,A242,A250,A252,A254,A305,A307,A309,A317,A319,A327,A329,A340,A342", _
"A344,A352,A354,A362,A364,A375,A377,A379,A387,A389,A397,A399,A410,A412", _
"A414,A422,A424,A432,A434,A474,A476,A484,A486,A488,A496,A499,A507,A509", _
"A517,A519,A530,A532,A540,A542,A550,A553,A556,A565,A567,A575,A577,A579", _
"A631,A633,A641,A643,A645,A653,A655,A657,A665,A667,A675,A677,A679,A687", _
"A689,A697,A699,A707,A709,A717 ...
 
Seite 231 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 228, 229, 230, 231, 232, 233, 234 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen