Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 391 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 388, 389, 390, 391, 392, 393, 394 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: String an Array übergeben (Makrosubstitution) 
Phelan XLPH

Antworten: 4
Aufrufe: 1176

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 01:09   Titel: AW: String an Array übergeben (Makrosubstitution) Version: Office 2007
Evaluate in der VBA-Hilfe nachschlagen!
  Thema: Code funktioniert nicht richtig 
Phelan XLPH

Antworten: 6
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 00:53   Titel: AW: Code funktioniert nicht richtig Version: Office 2003
Nix

Manchmal schlägt
.Value = .Value fehl, nicht oft aber gewiss.

Mit Copy - PasteSpezial bist du auf der sicheren Seite und das
ist auch schneller
  Thema: Befehlszeile im Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 00:49   Titel: AW: Befehlszeile im Programm Version: Office 2003
Hey Gerd, das tut sogar Confused Laughing


...aber um ne chleife kommst du nicht drumrum.

NEIN, es gibt keine bereits "eingebaute" Funktion.

Hatte ich aber oben schon geschrieben! Rolling Eyes

Meinen Code kannst du in Gulli kicken, er ist fehlerhaft!
  Thema: Daten von untereinander zu nebeneinander kopieren 
Phelan XLPH

Antworten: 15
Aufrufe: 1734

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Okt 2010, 00:34   Titel: AW: Daten von untereinander zu nebeneinander kopieren Version: Office 2007
Schau dir die Demo an. Cool
  Thema: Großschreibung 
Phelan XLPH

Antworten: 5
Aufrufe: 537

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 23:56   Titel: AW: Großschreibung Version: Office 2010
[url=http://www.online-excel.de/excel/singsel_vba.php?f=44]Hier (Wie und wo fügt man ein Makro bzw. Code ein)
  Thema: SumIf Funktion mit 2 Kriterien 
Phelan XLPH

Antworten: 11
Aufrufe: 1506

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 12:06   Titel: AW: SumIf Funktion mit 2 Kriterien Version: Office 2007
@bst

das hier würde es auch tun oder nicht?

strVon = "<" & Str(Range("B1").Value)
strBis = "<=" & Str(Range("B2").Value)

EDIT:
obwohl, Str liefert einen Fehler falls es keine Zahl ist Confused Rolling Eyes
  Thema: Befehlszeile im Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 11:56   Titel: AW: Befehlszeile im Programm Version: Office 2003
Hier die korrigierte Version:
Sub test()
Dim z As Long
z = 89765
MsgBox IsStrasse(z)
End Sub

Function IsStrasse(ByVal s As String)
Dim i As Long
Dim x() As Byte
Dim blnReihe As Boolean

If IsNumeric(s) And Len(s) > 1 Then
x = StrConv(s, vbFromUnicode)
blnReihe = True
If x(0) < x(1) Then
For i = 0 To UBound(x) - 1
If x(i) + 1 = x(i + 1) And x(i) <> x(i + 1) Then _
: Else blnReihe = False: Exit For
Next
Else
For i = UBound(x) To 1 Step -1
If x(i) - 1 <> x(i - 1) And x(i) <> x(i - 1) Then _
: Else blnReihe = False: Exit For
Next
End If
End If
IsStrasse = blnReihe
End Function
  Thema: Makro bricht ab bei Input Box (Wert 0) 
Phelan XLPH

Antworten: 4
Aufrufe: 695

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 09:55   Titel: AW: Makro bricht ab bei Input Box (Wert 0) Version: Office 2007
Das schaust du in der VBA-Hilfe nach und das TYPENAME auch. Very Happy
  Thema: Befehlszeile im Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 09:33   Titel: AW: Befehlszeile im Programm Version: Office 2003
Weißt du was das LIKE macht? Hast du in der VBA-Hilfe nachgeschaut?

Dein Lösungsansatz ist zu einfach. LIKE erkennt keine Auf/Absteigende
Reihenfolge. Das muss du schon selber programmieren. Very Happy

Teste das mal:

Sub test()
MsgBox IsStrasse(9876)
End Sub

Function IsStrasse(s As String)
Dim i As Long
Dim x() As Byte
Dim blnReihe As Boolean

If IsNumeric(s) Then
x = StrConv(s, vbFromUnicode)
blnReihe = True
If x(0) < x(1) Then
For i = 0 To UBound(x) - 1
If x(i) + 1 = x(i + 1) And x(i) <> x(i + 1) Then _
: Else blnReihe = False: Exit For
Next
Else
For i = UBound(x) To 1 Step -1
If x(i) - 1 <> x(i - 1) And x(i) <> x(i - 1) Then _
: Else blnReihe = False: Exit For
Next
End If
End ...
  Thema: Code funktioniert nicht richtig 
Phelan XLPH

Antworten: 6
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 09:29   Titel: AW: Code funktioniert nicht richtig Version: Office 2003
Das sieht schon alles richtig aus, bis auf den Speicherpfad da fehlt das ".xls"

Versuches mal so:
Sub Ausgang_in_Archiv()
Dim strPfad As String

'Pfad, in dem die Kopie abgelegt werden soll
strPfad = "C:\Dokumente und Einstellungen\.......\Eigene Dateien\Siko Dienstantritt\" 'letzten "\" nicht vergessen!

'Kopieren
ThisWorkbook.Sheets("Dienstantrittsliste").Copy

'Formeln raus:
With ActiveWorkbook.Worksheets("Dienstantrittsliste")
With .UsedRange
.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
'Speichern + Schließen:
.Parent.SaveAs Filename:=strPfad & "Dienstantrittsliste_" & _
Format(Now, "DD.MM.YY") & ".xls", FileFormat:=xlNormal
.Parent.Close False
End With
End Sub
  Thema: Makro bricht ab bei Input Box (Wert 0) 
Phelan XLPH

Antworten: 4
Aufrufe: 695

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 09:09   Titel: AW: Makro bricht ab bei Input Box (Wert 0) Version: Office 2007
Versuch es so:

Sub ph()
Dim Artikelnummer As Variant
Dim Stückzahl As Variant
Dim Kratzer As Variant

Artikelnummer = Application.InputBox("Bitte geben Sie die Artikelnummer ein.", "Artikelnummereingabe", , Type:=1)
If TypeName(Artikelnummer) = "Boolean" Then Exit Sub

Stückzahl = Application.InputBox("Wie viel Teile wurden kontrolliert?", "Stückzahleingabe", , Type:=1)
If TypeName(Stückzahl) = "Boolean" Then Exit Sub

Kratzer = Application.InputBox("Wie viel Kratzer wurden festgestellt?", "Kratzer", , Type:=1)
If TypeName(Kratzer) = "Boolean" Then Exit Sub

With Sheets("Menü")
.Range("F16") = Artikelnummer
.Range("L16") = Stückzahl
.Range("O16"& ...
  Thema: Großschreibung 
Phelan XLPH

Antworten: 5
Aufrufe: 537

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2010, 00:12   Titel: AW: Großschreibung Version: Office 2010
im standardmodul
  Thema: VBA wielange noch? 
Phelan XLPH

Antworten: 12
Aufrufe: 396

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2010, 22:07   Titel: AW: VBA wielange noch? Version: Office 2010
Hilfe, bloß nicht...VBA muss erhalten bleiben.
  Thema: Großschreibung 
Phelan XLPH

Antworten: 5
Aufrufe: 537

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2010, 20:20   Titel: AW: Großschreibung Version: Office 2010
Sub ph()
Range("IH44") = UCase(Range("IH44"))
Range("GU46") = UCase(Range("GU46"))
End Sub
  Thema: jede 100 Spalte löschen 
Phelan XLPH

Antworten: 6
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Okt 2010, 20:10   Titel: AW: jede 100 Spalte löschen Version: Office 2007
Klar mein Fehler

das muss so heißen:
rngCol.EntireColumn.Delete
 
Seite 391 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 388, 389, 390, 391, 392, 393, 394 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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