Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 56 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 53, 54, 55, 56, 57, 58, 59 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Makro cut+paste in anderes Blatt nacheinander 
Phelan XLPH

Antworten: 5
Aufrufe: 109

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 14:07   Titel: AW: Makro cut+paste in anderes Blatt nacheinander Version: Office 2007
Sub SpuelloesungExtract()
Dim rngCell As Range
Dim rngSpuelLoesung As Range

With Worksheets("Import")
For Each rngCell In .Cells(1).CurrentRegion.Rows(1).Cells
If rngCell.Value Like "*130BLK*" Then
If rngSpuelLoesung Is Nothing Then
Set rngSpuelLoesung = rngCell.Resize(, 2)
Else
Set rngSpuelLoesung = Union(rngSpuelLoesung, rngCell.Resize(, 2))
End If
End If
Next
If Not rngSpuelLoesung Is Nothing Then
With rngSpuelLoesung.EntireColumn
.Copy Worksheets("Spuelung").Cells(1)
.Delete
End With
End If
End With
End Sub
  Thema: Problem mit bedingter Formatierung 
Phelan XLPH

Antworten: 6
Aufrufe: 229

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 13:19   Titel: AW: Problem mit bedingter Formatierung Version: Office 2003
hast du englisches excel?
  Thema: Daten dynamisch tranponieren 
Phelan XLPH

Antworten: 17
Aufrufe: 208

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 13:06   Titel: AW: Daten dynamisch tranponieren Version: Office 2007
Hier was ganz einfaches:

Sub x()
Dim lngIndex As Long
Dim lngZeile As Long
Dim lngSpalte As Long

lngZeile = 1

With Tabelle1
For lngIndex = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(lngIndex - 1, 1).Value <> .Cells(lngIndex, 1).Value Then
lngZeile = lngZeile + 1
lngSpalte = 3
End If
.Cells(lngZeile, lngSpalte).Value = .Cells(lngIndex, 2).Value
lngSpalte = lngSpalte + 1
Next
End With
End Sub
  Thema: Problem mit bedingter Formatierung 
Phelan XLPH

Antworten: 6
Aufrufe: 229

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 09:21   Titel: AW: Problem mit bedingter Formatierung Version: Office 2003
Poste IstWochenende
  Thema: UDF dem User verständlich machen 
Phelan XLPH

Antworten: 12
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 08:37   Titel: AW: UDF dem User verständlich machen Version: Office 2010
Ohne die MsgBox!!!!

statt:
eingabefkttyp4 = MsgBox("Parameterzahl ungerade")

so:
eingabefkttyp4 = "Parameterzahl ungerade"


...wie bereits oben geschrieben Rolling Eyes
  Thema: UDF dem User verständlich machen 
Phelan XLPH

Antworten: 12
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 08:16   Titel: AW: UDF dem User verständlich machen Version: Office 2010
Hallo Manuel,

nimm den MsgBox-Text als Rückgabewert der Funktion:

Bsp:
eingabefkttyp4 = "Parameterzahl ungerade"
  Thema: Makro cut+paste in anderes Blatt nacheinander 
Phelan XLPH

Antworten: 5
Aufrufe: 109

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 19:19   Titel: AW: Makro cut+paste in anderes Blatt nacheinander Version: Office 2007
Versuch es hiermit:

Sub SpuelloesungExtract()
Dim rngCell As Range
Dim rngSpuelLoesung As Range

With Tabelle1
For Each rngCell In .Cells(1).CurrentRegion.Rows(1).Cells
If rngCell.Value Like "*130BLK*" Then
If rngSpuelLoesung Is Nothing Then
Set rngSpuelLoesung = rngCell.Resize(, 2)
Else
Set rngSpuelLoesung = Union(rngSpuelLoesung, rngCell.Resize(, 2))
End If
End If
Next
If Not rngSpuelLoesung Is Nothing Then
With rngSpuelLoesung.EntireColumn
.Copy Tabelle2.Cells(1)
.Delete
End With
End If
End With
End Sub
  Thema: Werte in großer Tabelle suchen und auflisten/ausgeben 
Phelan XLPH

Antworten: 10
Aufrufe: 182

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 18:45   Titel: AW: Werte in großer Tabelle suchen und auflisten/ausgeben Version: Office 2010
Hallo Blizzard,

genau für solche Zwecke gibt es die Pivottabelle.

Ich sehe jetzt auch keinen Sinn darin die Pivottabelle nachzuprogrammieren.
  Thema: Label.Caption automatisch anpassen nach Wert in ListBox 
Phelan XLPH

Antworten: 3
Aufrufe: 186

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 16:37   Titel: AW: Label.Caption automatisch anpassen nach Wert in ListBox Version: Office 2007
Hallo,
Lese die Spalte C mit in die ListBox ein und verstecke diese.
Dann setze ListBox1.TextColumn = 2

und dann ist sowas möglich:

Me.Label5.Caption = ListBox1.Text

EDIT:

Hier ein Beispiel.....
  Thema: Abfrage über Keywordsuche + Dropdown Menu 
Phelan XLPH

Antworten: 4
Aufrufe: 134

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 16:25   Titel: AW: Abfrage über Keywordsuche + Dropdown Menu Version: Office 2010
Naja vielleicht ist ja einem gerade langweilig... Laughing Laughing Laughing
  Thema: Abfrage über Keywordsuche + Dropdown Menu 
Phelan XLPH

Antworten: 4
Aufrufe: 134

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 15:24   Titel: AW: Abfrage über Keywordsuche + Dropdown Menu Version: Office 2010
Sind ziemlich viele Anforderung, aber vielleicht stellt es ja für manche hier kein Problem dar.

Nein. Aber unsere Zeit ist kostbar. Cool
  Thema: Excel VBA Fehler in einer Function, bitte beim Suchen helfen 
Phelan XLPH

Antworten: 3
Aufrufe: 73

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 15:18   Titel: AW: Excel VBA Fehler in einer Function, bitte beim Suchen he Version: Office 2010
Hallo turgeon,

so ganz Recht hat Slowboarder nicht, schau dir mein Beispiel an.
  Thema: Excel VBA Fehler in einer Function, bitte beim Suchen helfen 
Phelan XLPH

Antworten: 3
Aufrufe: 73

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 14:12   Titel: AW: Excel VBA Fehler in einer Function, bitte beim Suchen he Version: Office 2010
So?!

Function SolidBar(kg As Double, Material As Range) As Double
Select Case Material.Address(0, 0)
Case "F11", "F12": SolidBar = 0.65 / 2871 * kg + 1.9
Case "F22": SolidBar = 0.55 / 2871 * kg + 2
Case "F91": SolidBar = 0.43 / 2871 * kg + 3.17
Case "F92": SolidBar = 0.9 / 2871 * kg + 8.1
Case Else
MsgBox ("Check Input 'Fxx', F12, F22, F91 or F92 or there is no Price for this Material")
SolidBar = -100
End Select
End Function
  Thema: Über Range.Find-Methode Zellen ansprechen 
Phelan XLPH

Antworten: 3
Aufrufe: 130

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 13:49   Titel: AW: Über Range.Find-Methode Zellen ansprechen Version: Office 2010
SVERWEIS() !!!
  Thema: Versch. Probleme mit VBA 
Phelan XLPH

Antworten: 19
Aufrufe: 305

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Apr 2013, 12:57   Titel: AW: Versch. Probleme mit VBA Version: Office 2010
Hallo,

ihr wisst schon dass Target mehr als nur eine Zelle impliziert????!!!!!
 
Seite 56 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 53, 54, 55, 56, 57, 58, 59 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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