Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 145 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 142, 143, 144, 145, 146, 147, 148 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Den höchsten Wert in einem Array mit zwei Variablen finden? 
Phelan XLPH

Antworten: 10
Aufrufe: 255

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Apr 2012, 13:17   Titel: AW: Den höchsten Wert in einem Array mit zwei Variablen find Version: Office 2010
Smile
  Thema: Zell Rerenzen durch Regex ersetzen 
Phelan XLPH

Antworten: 6
Aufrufe: 337

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Apr 2012, 10:28   Titel: AW: Zell Rerenzen durch Regex ersetzen Version: Office 2007
Beispiel:

Sub VerweisKopieren()
With Tabelle1.Range("A1:D10")
.Copy
With Tabelle2.Range(.Cells(1).Address)
Application.Goto .Cells(1)
.Parent.Paste , True
End With
End With
Application.CutCopyMode = False
End Sub
  Thema: Find-Methode mit like-operator 
Phelan XLPH

Antworten: 4
Aufrufe: 459

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Apr 2012, 10:09   Titel: AW: Find-Methode mit like-operator Version: Office 2003
oder so mit Like-Operator:

Sub x()
Dim rngC As Range
For Each rngC In Worksheets("Tabelle2").Range("F17:AG145").SpecialCells(xlCellTypeFormulas)
If rngC.FormulaLocal Like "*SVERWEIS*" Then rngC.Interior.Pattern = xlPatternGray50
Next
End Sub
  Thema: Den höchsten Wert in einem Array mit zwei Variablen finden? 
Phelan XLPH

Antworten: 10
Aufrufe: 255

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2012, 21:01   Titel: AW: Den höchsten Wert in einem Array mit zwei Variablen find Version: Office 2010
Oder ohne Dictionary.
  Thema: Den höchsten Wert in einem Array mit zwei Variablen finden? 
Phelan XLPH

Antworten: 10
Aufrufe: 255

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2012, 19:42   Titel: AW: Den höchsten Wert in einem Array mit zwei Variablen find Version: Office 2010
woher erhält MaxAnzahl seinen Wert?
  Thema: Mit VBA Code Webseite bedienen? 
Phelan XLPH

Antworten: 4
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2012, 12:19   Titel: AW: Mit VBA Code Webseite bedienen? Version: Office 97
ja, sowas geht.
  Thema: Zeilen hinzufügen über mehrere Tabellen per VBA dauert ewig 
Phelan XLPH

Antworten: 2
Aufrufe: 711

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2012, 09:48   Titel: AW: Zeilen hinzufügen über mehrere Tabellen per VBA dauert e Version: Office 2003
statt:
For IntNbr = 1 To IntNbrRow
ThisWorkbook.Sheets(wksall).Select
ThisWorkbook.Sheets(Tabelle1.Index).Activate
Rows(IntRow).Select
Selection.Insert Shift:=xlDown
Rows("2:2").Select
Selection.Copy
Rows(IntRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next IntNbr
das einsetzen:
ThisWorkbook.Sheets(wksall).Select
ThisWorkbook.Sheets(Tabelle1.Index).Activate
Rows(2).Copy
Rows(IntRow).Resize(IntNbrRow).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
  Thema: Array? Ich brauche Hilfe für elegante Lösung zur Speicherung 
Phelan XLPH

Antworten: 14
Aufrufe: 389

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Apr 2012, 12:35   Titel: AW: Array? Ich brauche Hilfe für elegante Lösung zur Speiche Version: Office 2010
Un wozu brauchst duu das Array?

Vorgehensweise: Autofilter -> Ergebnis kopieren -> Zielblatt sortieren
  Thema: Algorythmus zum Sätze ordnen (Makro) 
Phelan XLPH

Antworten: 5
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Apr 2012, 11:32   Titel: AW: Algorythmus zum Sätze ordnen (Makro) Version: Office 2010
Sub x()
Dim i As Long
Dim sText As String

For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Left(Cells(i, 1), 4) Like "*#. *" Then
Cells(i, 1) = Cells(i, 1) & IIf(Right(Cells(i, 1), 1) = " ", "", " ") & sText
sText = ""
Else
sText = IIf(Right(Cells(i - 1, 1), 1) = " ", "", " ") & Cells(i, 1) & sText
Rows(i).Delete
End If
Next
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row * 2
If Left(Cells(i, 1), 4) Like "*#. *" Then
Rows(i).Insert
Cells(i, 1) = "'" & Split(Cells(i + 1, 1), ".")(0) & "."
Ce ...
  Thema: Riesen Auswertungsproblem (mehrere Kriterien in Kombination) 
Phelan XLPH

Antworten: 11
Aufrufe: 525

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Apr 2012, 09:50   Titel: AW: Riesen Auswertungsproblem (mehrere Kriterien in Kombinat Version: Office 2003
Smile
  Thema: wie geht's besser? viele For/Next-Schleifen nacheinander.... 
Phelan XLPH

Antworten: 8
Aufrufe: 246

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Apr 2012, 09:36   Titel: AW: wie geht's besser? viele For/Next-Schleifen nacheinander Version: Office 2007
Das muss natürlich so heißen:

With .Parent.Worksheets("Projektnummern").Range("A:A")
Set A = .Find(strSuch2, LookIn:=xlValues, LookAt:=xlWhole)
If Not A Is Nothing Then
NrProjekt = .Parent.Cells(A.Row, 2).Value
tbProjekt = .Parent.Cells(A.Row, 3).Value
End If
End With
  Thema: wie geht's besser? viele For/Next-Schleifen nacheinander.... 
Phelan XLPH

Antworten: 8
Aufrufe: 246

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Apr 2012, 15:31   Titel: AW: wie geht's besser? viele For/Next-Schleifen nacheinander Version: Office 2007
Option Explicit

Sub Kopieren()

Dim colDate As Byte, colLength As Byte, colPhone As Byte, colStudyID As Byte
Dim tbName As String, tbNameNEU As String, tbTelefon As String
Dim A As Object
Dim LoLetzte1 As Long, LoLetzte2 As Long, LoLetzte3 As Long
Dim LoJ As Long, LoH As Long, LoI As Long, LoK As Long, LoL As Long
Dim strSuch1, strSuch2
Dim TextProjekt, ProjektNr, Leerzeichen
Dim loMonat As String, Mydate As Date
Dim RowProjekt As Long, NrProjekt As Long
Dim RowAULL As Long, RowAUMOB As Long, RowDELL As Long, RowDEMOB As Long
Dim CallLength As Integer
Dim tbProjekt As String, tbProjektkosten As String
Dim LastRow As Long, PathXls, FileNameXls, loMonatXls As String
Dim vWert As Variant

tbName = "septdat3.rpt"
tbNameNEU = "septdat3 (bearbeitet)"
tbTelefon = "Telefonkosten"
PathXls = ThisWorkbook.Path
loMonatXls = Format(Now, "yyyy")

Application.ScreenUpdating = False

With ThisWorkbook

W ...
  Thema: Zellbezüge aus einem String auflösen 
Phelan XLPH

Antworten: 7
Aufrufe: 348

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Apr 2012, 19:07   Titel: AW: Zellbezüge aus einem String auflösen Version: Office 2010
...lass mich raten. Bei dir ist Option Explicit im Modul ganz oben nicht gesetzt!? Rolling Eyes
  Thema: 12 Spalten Verketten 
Phelan XLPH

Antworten: 10
Aufrufe: 280

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Apr 2012, 18:52   Titel: AW: 12 Spalten Verketten Version: Office 2007
Sub x()
Dim ar As Variant
Dim sformel As String
Dim lz As Long
Dim k As Integer

With Tabelle1
lz = .Range("Q:AB").Find("*", , , , xlByRows, xlPrevious).Row
For k = 17 To 28
sformel = sformel & "&" & .Name & "!" & .Range(.Cells(2, k), .Cells(lz, k)).Address(0, 0)
If k = 20 Or k = 24 Then sformel = sformel & "&""-->>"""
Next
End With

sformel = "=" & Mid(sformel, 2)

ar = Evaluate(sformel)

Tabelle2.Range("G2").Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub
  Thema: Brauche Makroexperten/In - übertragen wert einer zelle 
Phelan XLPH

Antworten: 7
Aufrufe: 227

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Apr 2012, 16:31   Titel: AW: Brauche Makroexperten/In - übertragen wert einer zelle Version: OpenOffice/StarOffice
Das geht auch ohne VBA: SVERWEIS()
 
Seite 145 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 142, 143, 144, 145, 146, 147, 148 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks