Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 156 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 153, 154, 155, 156, 157, 158, 159 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Daten in fortlaufende Zeile kopieren... 
Phelan XLPH

Antworten: 11
Aufrufe: 599

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 12:02   Titel: AW: Daten in fortlaufende Zeile kopieren... Version: Office 2003
Cool
  Thema: Groß- und Kleinschreibung vertauschen 
Phelan XLPH

Antworten: 8
Aufrufe: 505

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 09:57   Titel: AW: Groß- und Kleinschreibung vertauschen Version: Office 2010
Bsp. Aufruf in einer Zelle:
=GrossNachKlein(A1)

Function GrossNachKlein(Zelle)
Dim i As Integer
Dim x() As Byte

x = StrConv(Zelle, vbFromUnicode)
For i = 0 To UBound(x)
Select Case x(i)
Case 65 To 90: x(i) = x(i) + 32
Case 97 To 122: x(i) = x(i) - 32
End Select
Next
GrossNachKlein = StrConv(x, vbUnicode)
End Function
  Thema: Zahlen aus Zelle separieren 
Phelan XLPH

Antworten: 6
Aufrufe: 517

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 09:04   Titel: AW: Zahlen aus Zelle separieren Version: Office 2007
Versuchs hiermit:

Function NurZahlen(Zelle, Optional pos)
Dim z As String
Dim i As Integer
Dim ar As Variant

z = Zelle

If Len(z) = 0 Then Exit Function
For i = 1 To Len(z)
If InStr("0123456789", Mid(z, i, 1)) Then
NurZahlen = NurZahlen & Mid(z, i, 1)
Else
If Right(NurZahlen, 1) <> ";" Then
NurZahlen = NurZahlen & ";"
End If
End If
Next

If Left(NurZahlen, 1) = ";" Then _
NurZahlen = Mid(NurZahlen, 2)

If Right(NurZahlen, 1) = ";" Then _
NurZahlen = Left(NurZahlen, Len(NurZahlen) - 1)

If Not IsMissing(pos) Then
ar = Split(NurZahlen, ";")
If UBound(ar) >= pos - 1 Then
NurZahlen = Split(NurZahlen, ";")(pos - 1) ...
  Thema: Kriterien für das Kopieren von Tabellenausschnitten (VBA) 
Phelan XLPH

Antworten: 4
Aufrufe: 324

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 03:34   Titel: AW: Kriterien für das Kopieren von Tabellenausschnitten (VBA Version: Office 2010
Spezialfilter (erweiterter Filter) automatisiert.
  Thema: Tabelle Aufsplitten wenn Spalte 1 neuen Text enthält 
Phelan XLPH

Antworten: 6
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 02:27   Titel: AW: Tabelle Aufsplitten wenn Spalte 1 neuen Text enthält Version: Office 2010
Sub x()
Dim i As Long
Dim blnWechsel As Boolean
Rows.Interior.ColorIndex = xlColorIndexNone
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> Cells(i + 1, 1) Then blnWechsel = Not blnWechsel
If blnWechsel Then Rows(i + 1).Interior.ColorIndex = 3
Next
End Sub
  Thema: Nach Zellen mit Datum suchen, die bestimmten Monat entsprech 
Phelan XLPH

Antworten: 2
Aufrufe: 358

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 02:14   Titel: AW: Nach Zellen mit Datum suchen, die bestimmten Monat entsp Version: Office 2010
Sub Makro1()
Dim sDatum As String
Dim ar As Variant
Dim t As Integer

sDatum = InputBox("Bitte Datum eingeben:", "Filter-Kopie", "__.__.____")
If sDatum = "" Then Exit Sub

If Len(sDatum) - 2 <> Len(Replace(sDatum, ".", "")) Then Exit Sub

ar = Split(sDatum, ".")

ar(0) = Val(ar(0))
ar(1) = Val(ar(1))
ar(2) = Val(ar(2))

If ar(2) Then
t = 0
If ar(1) = 0 Then ar(1) = 1 Else t = 1
If ar(0) = 0 Then ar(0) = 1 Else t = 2

Tabelle2.UsedRange.Clear

With Tabelle1
With Intersect(.Range("E:F"), .UsedRange)
.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(t, ...
  Thema: Top5 (max. Werte mit Bezeichnung bei variabler Zeilenanzahl) 
Phelan XLPH

Antworten: 8
Aufrufe: 381

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. März 2012, 01:19   Titel: AW: Top5 (max. Werte mit Bezeichnung bei variabler Zeilenanz Version: Office 2010
Hallo Ralf,

hier könntest du fündig werden:
[url=http://www.excelformeln.de/formeln.html?welcher=74]Excelformeln.de
  Thema: Zelle kleiner als 5, Zeile löschen 
Phelan XLPH

Antworten: 16
Aufrufe: 662

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 22:55   Titel: AW: Zelle kleiner als 5, Zeile löschen Version: Office 2007
Hallo kurochan und sv_t,

lest euch das mal durch: [url=http://www.online-excel.de/excel/singsel_vba.php?f=152]Felder in VBA
  Thema: Aktuelle Zeit +1h 
Phelan XLPH

Antworten: 5
Aufrufe: 375

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 22:39   Titel: AW: Aktuelle Zeit +1h Version: Office 2k (2000)
oder so:
MsgBox FormatDateTime(Time + 1 / 24, vbLongTime)
  Thema: Dateien vom Typ CSV in Excel-Dateien umwandeln 
Phelan XLPH

Antworten: 8
Aufrufe: 694

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 17:13   Titel: AW: Dateien vom Typ CSV in Excel-Dateien umwandeln Version: Office 2010
Sub x()
Const cPfad = "D:\Test\" 'Anpassen
Dim sDatei As String

sDatei = Dir(cPfad & "*.csv")

Do While sDatei <> ""
Workbooks.OpenText cPfad & sDatei, Local:=True
With ActiveWorkbook
.SaveAs Replace(cPfad & sDatei, ".csv", ".xls"), xlNormal
.Close False
End With
Kill cPfad & sDatei
sDatei = Dir()
Loop

End Sub
  Thema: ActiveX-Control wird nicht mitsortiert. 
Phelan XLPH

Antworten: 2
Aufrufe: 184

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 13:57   Titel: AW: ActiveX-Control wird nicht mitsortiert. Version: Office 2010
Ok, es lag an LinkedCell.

Wenn das gesetzt ist, funktioniert es nicht.
  Thema: ActiveX-Control wird nicht mitsortiert. 
Phelan XLPH

Antworten: 2
Aufrufe: 184

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 13:50   Titel: ActiveX-Control wird nicht mitsortiert. Version: Office 2010
Hallo,

ich möchte dass beim Sortieren die TextBox mit dem Datensatz
mitläuft. Habe es als Zellabhängig gesetzt.

Gibts da ne Lösung?
  Thema: UserID in Zahl umwandel 
Phelan XLPH

Antworten: 22
Aufrufe: 658

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 13:36   Titel: AW: UserID in Zahl umwandel Version: Office 2003
Bevor ich mir das analysiere, kannst du ir den Sinn/Zweck deines Codes?
  Thema: analoge uhr in excel, wie fange ich an??? 
Phelan XLPH

Antworten: 8
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 13:33   Titel: AW: analoge uhr in excel, wie fange ich an??? Version: Office 2003
Google doch einfach mal nach (in Google):
Analoge Uhr excel
  Thema: analoge uhr in excel, wie fange ich an??? 
Phelan XLPH

Antworten: 8
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. März 2012, 10:54   Titel: AW: analoge uhr in excel, wie fange ich an??? Version: Office 2003
oder mit Shapes [url=http://www.herber.de/bbs/user/46540.xls]46540.xls
 
Seite 156 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 153, 154, 155, 156, 157, 158, 159 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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