Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 406 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 403, 404, 405, 406, 407, 408, 409 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: mit VBA Datei nach Daten durchsuchen ohne zu öffnen 
Phelan XLPH

Antworten: 7
Aufrufe: 1341

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2010, 10:09   Titel: AW: mit VBA Datei nach Daten durchsuchen ohne zu öffnen Version: Office 2003
Hallo,

ja genau... Rolling Eyes

Ich hab ein ähnliches problem:
Ich verreise in einem bestimmten Kontinent in einem bestimmten Land in eine
bestimmte Stadt. Kannst du mir jetzt sagen wie die nächste Stadt südlich davon heißt und mir Routenplan erstellen? Laughing Laughing Laughing

Preisfrage:
Welche und wieviele kontinente bereise ich, wieviele und in welchen dieser
Länder der Kontinente habe ich mir ausgesucht, und in wievieln und welchen
Städten dieser Länder setze ich mich ab und wie heißen die Stände südlicher
dieser gesuchten Städte?

Weist du worauf ich hinaus will? Wink
  Thema: WorksheetFunction.Search /////Fehler 
Phelan XLPH

Antworten: 4
Aufrufe: 1487

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 22:59   Titel: AW: WorksheetFunction.Search /////Fehler Version: Office 2003
Keine Ahnung,

ich weiß nur dass es so geht. Hatte mich auch mal dami beschäftigt, bis
auch diese Lösung gestoßen bin.

Vielleicht weiß einer der Profis was Sache ist.
  Thema: WorksheetFunction.Search /////Fehler 
Phelan XLPH

Antworten: 4
Aufrufe: 1487

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 19:37   Titel: AW: WorksheetFunction.Search /////Fehler Version: Office 2003
Hallo,

Sub ph()
Dim retval As Variant
retval = Application.Search("c*e", "abcde")
If IsError(retval) Then MsgBox "Suchtext nicht enthalten!"
End Sub
  Thema: Meine Excel-Tabelle optimieren 
Phelan XLPH

Antworten: 3
Aufrufe: 750

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 19:35   Titel: AW: Meine Excel-Tabelle optimieren Version: Office 2003
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("September"), Target) Is Nothing Then
Call Faerben(Intersect(Range("September"), Target))
End If
End Sub

Private Sub Faerben(Bereich As Range)
Dim zelle As Range
For Each zelle In Bereich
Select Case zelle.Value
Case "f"
zelle.Interior.ColorIndex = 22
zelle.Font.Bold = True
zelle.Font.ColorIndex = 1
Case "ee"
zelle.Interior.ColorIndex = 43
zelle.Font.Bold = True
zelle.Font.ColorIndex = 1
Case "se"
zelle.Interior.ColorIndex = 35
zelle.Font.Bold = True
zelle.Font.ColorIndex = 1
Case "u"
zelle.Interior.ColorIndex = 46
...
  Thema: zwei dimentinale matrix aussuchen 
Phelan XLPH

Antworten: 2
Aufrufe: 191

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 19:24   Titel: AW: zwei dimentinale matrix aussuchen Version: Office 2003
Eintrag DOPPELT!!!

[url=http://www.office-loesung.de/ftopic410756_0_0_asc.php]Hier gehts weiter...
  Thema: Spaltenüberschriften per VBA eintragen 
Phelan XLPH

Antworten: 6
Aufrufe: 425

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 16:33   Titel: AW: Spaltenüberschriften per VBA eintragen Version: Office 2007
Hallo,

Sub ph()
Dim arrDeu As Variant
Dim arrEng As Variant
Dim i As Integer
Dim rngF As Range

arrDeu = Array("Baum", "Haus", "Auto")
arrEng = Array("Tree", "House", "Car")

For i = LBound(arrDeu) To UBound(arrDeu)
Set rngF = Tabelle2.Rows(1).Find(arrDeu(i), , xlValues, xlWhole)
If Not rngF Is Nothing Then rngF = arrEng(i)
Next

End Sub
  Thema: Spaltenüberschriften per VBA eintragen 
Phelan XLPH

Antworten: 6
Aufrufe: 425

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 16:27   Titel: AW: Spaltenüberschriften per VBA eintragen Version: Office 2007
Also die Überschriften umbenennen und das in der richtigen Spalte?!
  Thema: Spaltenüberschriften per VBA eintragen 
Phelan XLPH

Antworten: 6
Aufrufe: 425

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 16:17   Titel: AW: Spaltenüberschriften per VBA eintragen Version: Office 2007
Wieso ist das Format falsch?

Wie sieht denn das Format aus?
  Thema: Wort suchen und Zeile als Variabele 
Phelan XLPH

Antworten: 10
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 16:14   Titel: AW: Wort suchen und Zeile als Variabele Version: Office 2003
2 mögliche Ursachen:

1. Suchwert ist in SpalteA nicht enthalten
2. Falsches Blatt ist aktiv
  Thema: Zelle kopieren, wenn sie einen inhalt hat 
Phelan XLPH

Antworten: 3
Aufrufe: 580

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 16:01   Titel: AW: Zelle kopieren, wenn sie einen inhalt hat Version: Office 2003
Hallo,

Sub ph()
Dim ar As Variant
Dim i As Long, n As Long
Dim retval As Range

ar = WorksheetFunction.Transpose(Range("K2:K9"))
For i = 1 To UBound(ar)
If ar(i) <> "" Then _
n = n + 1: ar(n) = ar(i)
Next
ReDim Preserve ar(1 To n)

On Error Resume Next
Set retval = Application.InputBox("Bitte eine Zelle markieren.", , , , , , , 8)
If Err Then Exit Sub
retval.Value = Join(ar, ";")
End Sub
  Thema: martix suche 
Phelan XLPH

Antworten: 2
Aufrufe: 199

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 15:48   Titel: AW: martix suche Version: Office 2003
Hallo,

teste und Very Happy Cool

Sub ph_Matrix()
Dim rngC As Range

Application.ScreenUpdating = False
With Tabelle1.Range("A1").CurrentRegion
For Each rngC In .Rows(1).Cells
If rngC.Column > 1 Then
.Range(.Columns(2), .Columns(.Columns.Count)).Hidden = True
rngC.EntireColumn.Hidden = False
.AutoFilter rngC.Column, "<>"
Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy _
Worksheets.Add(, Sheets(Sheets.Count)).Range("A1")
ActiveSheet.Name = rngC.Text & "_" & StrReverse(Val(StrReverse(ActiveSheet.Name)))
.AutoFilter
End If
Next
.Columns.Hidden = False
End With
Application.ScreenUpdating = True
End Sub
  Thema: Problem beim sortieren 
Phelan XLPH

Antworten: 10
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 15:31   Titel: AW: Problem beim sortieren Version: Office 2003
Also bei mir tuts Confused
  Thema: Zeichen nach * entfernen 
Phelan XLPH

Antworten: 3
Aufrufe: 204

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 15:30   Titel: AW: Zeichen nach * entfernen Version: Office 2007
=WENNFEHLER(LINKS(C14;SUCHEN("~*";C14)-1);"")
  Thema: Problem beim sortieren 
Phelan XLPH

Antworten: 10
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 15:21   Titel: AW: Problem beim sortieren Version: Office 2003
Und, hast du jetzt die Änderung vorgenommen und getestet?
  Thema: Aus Zeitformat [hh]:mm:ss einzelne Teile exportieren 
Phelan XLPH

Antworten: 8
Aufrufe: 477

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2010, 15:12   Titel: AW: Aus Zeitformat [hh]:mm:ss einzelne Teile exportieren Version: Office 2007
Damit wird das Dateserial etwas entlastet und die Umwandlung des
Format-Ergebnisses in Integer entfällt Surprised
 
Seite 406 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 403, 404, 405, 406, 407, 408, 409 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA