Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 408 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 405, 406, 407, 408, 409, 410, 411 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Integer Wert aus einem String herauslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1611

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2010, 20:29   Titel: AW: Integer Wert aus einem String herauslesen Version: Office 2003
StrConv ist doppelt so schnell als Mid$.

Hatte ich mal getestet.
  Thema: Feste Reihenfolge für das Importieren von txt-Dateien 
Phelan XLPH

Antworten: 5
Aufrufe: 366

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2010, 12:43   Titel: AW: Feste Reihenfolge für das Importieren von txt-Dateien Version: Office 2007
Teste das mal:
Sub DatenimportT2()
'
' DatenimportT2 Makro
'
Dim fpath As String
Dim fname As String
Dim dname As String
Dim arr As Variant
Dim i As Long
Dim s As String

Application.ScreenUpdating = False

fpath = Range("D7").Text + Range("K2").Text
' fpath = "d:\test\"
fname = Dir(fpath & "*.txt")
Do While (Len(fname) > 0)
dname = dname & ";" & LCase$(fname)
fname = Dir
Loop

s = Mid$(dname, 2)
arr = Split(s, ";")
Call sort(arr)

For i = LBound(arr) To UBound(arr)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& fpath & arr(i), Destination:=Range("N5").Offset(0, i + 1))
.FieldNames = T ...
  Thema: Integer Wert aus einem String herauslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1611

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2010, 11:48   Titel: AW: Integer Wert aus einem String herauslesen Version: Office 2003
Ich sehe wir reden aneinander vorbei.
Mein Code Extrahiert alle möglichen Zahlen (nicht Ziffern) aus einer
Zeichenkette.

Und was du anscheinend haben möchtest, ist die Zusammensetzung aller Ziffern
einer Zeichenkette bzw. Eliminierung aller nicht numerischen zeichen.

Dafür ist mein Code auch nicht ausgelegt.

Wo erhält man solche Zeichenketten, soll das eine Art Verschlüsselung einer Zahl
sein?

Nu ja, das ist jetzt wohl geklärt.

Nachtrag ZifferExtract:
Function ZifferExtract(text) As String
Dim i As Long, n As Long
Dim x() As Byte
On Error GoTo ende
x = StrConv(text, vbFromUnicode) ' Zeichenfolge umwandeln.
For i = 0 To UBound(x)
Select Case x(i)
Case 48 To 57, 44
x(n) = x(i): n = n + 1
End Select
Next
ReDim Preserve x(0 To n - 1)
ZifferExtract = StrConv(x, vbUnicode)
Exit Function
ende:
...
  Thema: Integer Wert aus einem String herauslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1611

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2010, 08:33   Titel: AW: Integer Wert aus einem String herauslesen Version: Office 2003
hallo hddiesel,

das macht mein Code auch nicht.
Das wär auch ein falsches Ergebnis.

Du könntest die Zahl wieder in einen String umwandeln mit folgender Formel:
=TEXT(ZahlExtract($A$1;ZEILE()-1);"00000")
  Thema: Integer Wert aus einem String herauslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1611

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 22:39   Titel: AW: Integer Wert aus einem String herauslesen Version: Office 2003
Das liegt daran da die Funktionen eben Zahlen zurückgeben und keine
Zeichenketten.
  Thema: Probleme mit End(xlDown) 
Phelan XLPH

Antworten: 6
Aufrufe: 1920

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 20:47   Titel: AW: Probleme mit End(xlDown) Version: Office 2003
Korrektur:
.Offset(1, 1).Value = Val(TextBox2)
  Thema: Auswahlliste automatisch aktualisieren 
Phelan XLPH

Antworten: 11
Aufrufe: 585

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 20:44   Titel: AW: Auswahlliste automatisch aktualisieren Version: Office 2003
Und?
  Thema: Tabellenblatt als .pdf ansehen? 
Phelan XLPH

Antworten: 5
Aufrufe: 234

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 20:42   Titel: AW: Tabellenblatt als .pdf ansehen? Version: Office 2007
Hallo Case,

wo finde ich das in Excel, um den Vorgang manuell durchzuführen.
Oder geht das nur per VBA? Ich denke nicht,oder?!
  Thema: Feste Reihenfolge für das Importieren von txt-Dateien 
Phelan XLPH

Antworten: 5
Aufrufe: 366

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 18:45   Titel: AW: Feste Reihenfolge für das Importieren von txt-Dateien Version: Office 2007
das kannst du mit normalen Mitteln des Explorers nicht sicherstellen.

nach Namen aufwärts sortieren. Dann läuft die Geschichte.
  Thema: Probleme mit End(xlDown) 
Phelan XLPH

Antworten: 6
Aufrufe: 1920

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 18:43   Titel: AW: Probleme mit End(xlDown) Version: Office 2003
Nicht so ungeduldig... Rolling Eyes

Private Sub CommandButton1_Click()
With Sheets("Transaktionen")
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Val(TextBox1)
.Offset(0, 1).Value = Val(TextBox2)
End With
End With
End Sub
  Thema: Auswahlliste automatisch aktualisieren 
Phelan XLPH

Antworten: 11
Aufrufe: 585

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 18:35   Titel: AW: Auswahlliste automatisch aktualisieren Version: Office 2003
Hallo,

habe die genialste Lösung aller Lösungen, das Maß aller Dinge, der
ultimative Burner, dafür müssen erst noch Superlativen geboren werden. Laughing Cool
  Thema: Text in die nächsten Zellen jeweils anders abändern 
Phelan XLPH

Antworten: 1
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2010, 00:51   Titel: AW: Text in die nächsten Zellen jeweils anders abändern Version: Office 2007
Hallo,

Sub ph()
Range("A:A").Replace "alpha", "beta", xlPart
End Sub
  Thema: Warum funkioniert dieser Code nicht? 
Phelan XLPH

Antworten: 6
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Sep 2010, 16:14   Titel: AW: Warum funkioniert dieser Code nicht? Version: Office 2007
Zuweisung einer Objektvariablen:
Set a = Range("B2:B30")
Set b = Range("C2:C30")
  Thema: Verschachtelung von Anweisungen 
Phelan XLPH

Antworten: 10
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Sep 2010, 11:27   Titel: AW: Verschachtelung von Anweisungen Version: Office 2010
Dann nimm doch die UDF von Kaulquappe.
  Thema: Fallunterscheidungen 
Phelan XLPH

Antworten: 4
Aufrufe: 159

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Sep 2010, 09:20   Titel: AW: Fallunterscheidungen Version: Office 2007
Variieren die Werte inder Spalte bzw. sollen die durch den User verändert werden
können oder sind es fest hinterlegte Werte, falls ja könnten diese Fest werte
vollens in VBA übernommen werden ohne den bezug auf das Sheet.
 
Seite 408 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 405, 406, 407, 408, 409, 410, 411 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript