Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 285 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 282, 283, 284, 285, 286, 287, 288 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Summen bilden, wenn die 3. Spalte gleich ist 
Phelan XLPH

Antworten: 9
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 17:05   Titel: AW: Summen bilden, wenn die 3. Spalte gleich ist Version: Office 2003
Very Happy
  Thema: Teil eines Strings extrahieren 
Phelan XLPH

Antworten: 9
Aufrufe: 740

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 17:03   Titel: AW: Teil eines Strings extrahieren Version: Office 2003
oder so...

Sub Test()
Dim i As Long
Dim g As String
Dim retval As Variant

g = "bla 125 34,6 kg " & vbLf & _
" 78 blax 45,369 KG "

retval = ExtractKG(g)

If Not IsEmpty(retval) Then
Range("G1").Resize(UBound(retval) + 1) = WorksheetFunction.Transpose(retval)
MsgBox Join(retval, vbLf)
End If
End Sub

Function ExtractKG(s)
Dim Ms As Object
Dim M As Object
Dim ar As Variant
Dim i As Long

If InStr(LCase(s), "kg") Then
With CreateObject("VBscript.Regexp")
.Global = True
.IgnoreCase = True
.Pattern = "-?\d+[.,]?\d*[ ]*KG"
Set Ms = .Execute(s)
If Ms.Count Then
ReDim ar(Ms.Count - 1)
...
  Thema: Teil eines Strings extrahieren 
Phelan XLPH

Antworten: 9
Aufrufe: 740

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 16:34   Titel: AW: Teil eines Strings extrahieren Version: Office 2003
wieviele Datensätze sind es denn?
  Thema: fortlaufend Bilder einfügen mit unterschiedlichen Namen 
Phelan XLPH

Antworten: 12
Aufrufe: 201

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 16:27   Titel: AW: fortlaufend Bilder einfügen mit unterschiedlichen Namen Version: Office 2003
da kann die Datei ganz schön aufblähen falls du die Bilder hineinkopierst.
Setze lieber einen Verweis. ...nur ein TIP.

Poste deinen code
  Thema: Makro Kopierschleife 
Phelan XLPH

Antworten: 9
Aufrufe: 184

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 16:23   Titel: AW: Makro Kopierschleife Version: Office 2003
so?!

Sub Schleife()

With Sheets("Buchungen")
For Z = 2 To .Cells(3, 2).End(xlDown).Row
.Range("B3:AV3,B" & Z & ":AV" & Z + 1).Copy
Sheets("Buchungen").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next Z
End With
  Thema: Nur bestimmte Zeile ins Listenfeld 
Phelan XLPH

Antworten: 2
Aufrufe: 351

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 16:02   Titel: AW: Nur bestimmte Zeile ins Listenfeld Version: Office 2003
Private Sub UserForm_Initialize()
Dim i As Long

With Tabelle1.Range("A1").CurrentRegion
ListBox1.List = .Value
ListBox1.ColumnCount = .Columns.Count
End With

With ListBox1
For i = .ListCount - 1 To 0 Step -1
If .List(i, 3) = "" Then .RemoveItem i
Next
.MultiSelect = fmMultiSelectExtended
.ColumnWidths = "20;50;50;70;45;50;40;130;140;200"
.ListStyle = fmListStyleOption
End With
End Sub
  Thema: Spalten in txt. Dateien exportieren 
Phelan XLPH

Antworten: 30
Aufrufe: 1335

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 15:34   Titel: AW: Spalten in txt. Dateien exportieren Version: Office 2003
Wer nicht will der hat schon. Rolling Eyes
  Thema: Bereich sortieren nach spezifischer Liste 
Phelan XLPH

Antworten: 6
Aufrufe: 198

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 15:33   Titel: AW: Bereich sortieren nach spezifischer Liste Version: Office 2003
evtl. so?!

Sub ph()
Dim arList As Variant
With WorksheetFunction
arList = _
Split(Join(.Transpose(.Transpose(Range("A1:H1"))), ";") & ";" & _
Join(.Transpose(.Transpose(Range("A2:H2"))), ";") & ";" & _
Join(.Transpose(.Transpose(Range("A3:E3"))), ";"), ";")
End With
MsgBox Join(arList, vbLf)
End Sub
  Thema: Bereich sortieren nach spezifischer Liste 
Phelan XLPH

Antworten: 6
Aufrufe: 198

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 15:21   Titel: AW: Bereich sortieren nach spezifischer Liste Version: Office 2003
oder [url=http://www.online-excel.de/excel/singsel_vba.php?f=116]hier:
  Thema: Spalten in txt. Dateien exportieren 
Phelan XLPH

Antworten: 30
Aufrufe: 1335

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 15:06   Titel: AW: Spalten in txt. Dateien exportieren Version: Office 2003
Hast du meinen Code getestet?
  Thema: 3 Probleme mit Zellfärbung 
Phelan XLPH

Antworten: 4
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 15:04   Titel: AW: 3 Probleme mit Zellfärbung Version: Office 2003
Zu Problem 1 und 3:

Sub Zelle_faerben()
Dim Zufall As Long, i As Long
Dim rng As Range, Zelle As Range
Dim rngFarblos As Range
Dim OBJ As Object
Dim n

Set OBJ = CreateObject("Scripting.Dictionary")

'Set rng = Range("DS40:DW44,DV36:DZ40,DT39:DV40,DU38:DV39,DW39:DZ46,DT44:DX45,DU45:DW46,DY41:EF44,DY44:EC45")
Set rng = Range("$DS$41:$EF$44,$DV$36:$DZ$40,$DT$39:$DU$40,$DU$38,$DS$40,$DT$45:$EC$45,$DU$46:$DZ$46")

For Each Zelle In rng
If Zelle.Interior.ColorIndex = xlColorIndexNone Then
i = i + 1
OBJ(i) = Zelle.Address
If rngFarblos Is Nothing Then
Set rngFarblos = Zelle
Else
Set rngFarblos = Union(Zelle, rngFarblos)
End If
End If
n = n + 1
Next

If rngFarblos Is Nothing Then Exit Sub

Randomize Timer
Zufall = Int(Rnd() * OBJ.Count + 1) ...
  Thema: Spalten in txt. Dateien exportieren 
Phelan XLPH

Antworten: 30
Aufrufe: 1335

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 13:34   Titel: AW: Spalten in txt. Dateien exportieren Version: Office 2003
bei welchem code?
  Thema: Letzter Wert zwischen Spalten finden! A:H 
Phelan XLPH

Antworten: 12
Aufrufe: 463

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 13:33   Titel: AW: Letzter Wert zwischen Spalten finden! A:H Version: Office 2003
ActiveSheet.PageSetup.PrintArea = "A1:H" & Range("A:H").Find("*", , , , xlByRows, xlPrevious).Row
  Thema: Makro mit filter 
Phelan XLPH

Antworten: 8
Aufrufe: 140

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 13:30   Titel: AW: Makro mit filter Version: Office 2003
Oh Very Happy ,

ich habe "Differenz" mit "Diff10" verwechselt. Tausche über all diese Namen.
  Thema: 3 Probleme mit Zellfärbung 
Phelan XLPH

Antworten: 4
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. März 2011, 13:28   Titel: AW: 3 Probleme mit Zellfärbung Version: Office 2003
das hier versteh ich nicht:
If i >= Zufall Then
 
Seite 285 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 282, 283, 284, 285, 286, 287, 288 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS