Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 591 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 588, 589, 590, 591, 592, 593, 594 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Listenfeld mit Makro. Makro nicht beim Scollen ausführen! 
Phelan XLPH

Antworten: 3
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 13:08   Titel: AW: Listenfeld mit Makro. Makro nicht beim Scollen ausführen Version: Office XP (2002)
Zeig mir den code ich zeig dir den fehler Very Happy

Wie wird das makro aufgerufen?
  Thema: Listensortierung per Makro (Listengröße variabel) 
Phelan XLPH

Antworten: 10
Aufrufe: 1382

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 13:06   Titel: AW: Listensortierung per Makro (Listengröße variabel) Version: Office 2007
hallo:

Sub Test()
Dim lz As Long
With Worksheets("Tabelle1")
lz = Cells(.Rows.Count, 15).End(xlUp).Row 'Letzte zeile in Spalte "O" ermitteln
.Range("O3:Q" & lz).Sort .Range("O3"), xlAscending, _
.Range("P3"), , xlAscending, .Range("Q3"), xlAscending, xlGuess
End With
End Sub
  Thema: Listensortierung per Makro (Listengröße variabel) 
Phelan XLPH

Antworten: 10
Aufrufe: 1382

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 12:02   Titel: AW: Listensortierung per Makro (Listengröße variabel) Version: Office 2007
Das kannst du aufzeichnen und wenn du dann Probleme mit der Erstellung
des dynamischen Bereichs hast dann melde dich nochmal.
Poste den aufgezeichneten Code
  Thema: Gesamte beschriebenen Zeilen miteinander vergleichen 
Phelan XLPH

Antworten: 10
Aufrufe: 233

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 11:38   Titel: AW: Gesamte beschriebenen Zeilen miteinander vergleichen Version: Office 2003
Schau dir das mal an habs über Array gemacht:
  Thema: Für jede Zelle in jeder Zeile eigene Writeline 
Phelan XLPH

Antworten: 3
Aufrufe: 1654

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 10:53   Titel: AW: Für jede Zelle in jeder Zeile eigene Writeline Version: Office XP (2002)
dann so:

Sub ExportToText()
Dim fs As Object, f As Object
Dim arr As Variant, Txt As String
Dim pfad As String, datei As String
Dim i As Long, k As Integer

pfad = "d:\test\" 'Anpassen
datei = "test.txt" 'Anpassen

With Tabelle1 'Anpassen
arr = .Range("A1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For k = 1 To UBound(arr, 2)
Select Case k
Case 1: Txt = Txt & vbCrLf & "ahnungslos"
Case 2: Txt = Txt & vbCrLf & "überfordert"
Case 3: Txt = Txt & vbCrLf & "hilfesuchend"
End Select
For i = 1 To UBound(arr)
Txt = Txt & vbCrLf & arr(i, k)
Next
Next

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.Creat ...
  Thema: Durchsuchbares Listenfeld 
Phelan XLPH

Antworten: 4
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 10:31   Titel: AW: Durchsuchbares Listenfeld Version: Office 2007
in eine Userform mit ListBox, TextBox, ComboBox:

Private arrIN As Variant

Private Sub TextBox1_Change()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long, intSpalte As Integer
Dim k As Integer, m As Long
intSpalte = Val(ComboBox1.Value)


For i = 1 To UBound(arrIN)
If CStr(arrIN(i, intSpalte)) Like TextBox1.Text & "*" Then
m = m + 1
For k = 1 To UBound(arrIN, 2)
ReDim Preserve arrOut(1 To UBound(arrIN, 2), 1 To m)
arrOut(k, m) = arrIN(i, k)
Next
End If
Next

If m >= 1 Then
ListBox1.Column = arrOut
End If
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
arrIN = Tabelle1.Range("A1:C10")
ListBox1.List = arrIN
ListBox1.ColumnCount = UBound(arrIN, 2)
...
  Thema: Gesamte beschriebenen Zeilen miteinander vergleichen 
Phelan XLPH

Antworten: 10
Aufrufe: 233

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 10:26   Titel: AW: Gesamte beschriebenen Zeilen miteinander vergleichen Version: Office 2003
Jetzt brauche ich einen VBA CODE, der mir die Zeilen vergleicht außer die erste spalte einer Zeile.

Vielen Dank für die Hilfe!

Wo ist da jetzt die Frage? Das ist eine Aufforderung aber keine Frage. Evil or Very Mad
Bei Aufforderungenen verlange ich einen Gegenwert, sprich: 1 Mio. €

Zu deinem Problem:

Verkette alle Spalten einer Zeile zu einem String
vergleiche diesen String mit den verketten Zeilen der Spalten der Zieltabelle
in einer Schleife.
  Thema: Für jede Zelle in jeder Zeile eigene Writeline 
Phelan XLPH

Antworten: 3
Aufrufe: 1654

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 10:12   Titel: AW: Für jede Zelle in jeder Zeile eigene Writeline Version: Office XP (2002)
so vielleicht:

Sub ExportToText()
Dim fs As Object, f As Object
Dim zell As Range, Txt As String
Dim pfad As String, datei As String

pfad = "d:\test\" 'Anpassen
datei = "test.txt" 'Anpassen

With Tabelle1 'Anpassen
For Each zell In .Range("A1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Txt = Txt & vbCrLf & zell.Text
Next
End With

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(pfad & datei, True)
f.Write Mid(Txt, 3)
f.Close
End Sub
  Thema: Gesamte beschriebenen Zeilen miteinander vergleichen 
Phelan XLPH

Antworten: 10
Aufrufe: 233

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 09:54   Titel: AW: Gesamte beschriebenen Zeilen miteinander vergleichen Version: Office 2003
...und ich brauch ne Mille(€).

Vielen Dank für die Hilfe!

PS: Ist das nicht ein deal?
  Thema: Suche aber genau 
Phelan XLPH

Antworten: 1
Aufrufe: 574

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 09:52   Titel: AW: Suche aber genau Version: Office 2007
So:

Sub Suche1()
Dim strSuche As String, rngFound As Range

strSuche = InputBox("Was?")
If Len(strSuche) > 0 Then
Set rngFound = Columns(1).Find(What:=strSuche & "*", LookIn:=xlFormulas, LookAt:=xlWhole)
If rngFound Is Nothing Then
MsgBox "nicht gefunden"
Else
'MsgBox "gefunden in: " & rngFound.Address
rngFound.Select
End If
End If
End Sub
  Thema: Durchsuchbares Listenfeld 
Phelan XLPH

Antworten: 4
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 09:46   Titel: AW: Durchsuchbares Listenfeld Version: Office 2007
@Excel-Tüftler

wenn du immer nach den Anfangsbuchstaben (und den folgenden) suchst, würde ich dir eine ComboBox empfehlen, die macht sowas von ganz alleine...

wie das denn, mach mal ein Bsp! Smile
  Thema: Mehrere Textdateien in eine Exeldatei 
Phelan XLPH

Antworten: 2
Aufrufe: 648

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 07:37   Titel: AW: Mehrere Textdateien in eine Exeldatei Version: Office 2007
Hallo:

Sub OpenTextFileImport()
Dim fs As Object, f As Object
Dim TxT As String, i As Long, k As Integer, m As Long
Dim arrZ As Variant, arrS As Variant, arrOut() As Variant
Dim strPfad As String, strDatei As String
Dim wks As Worksheet, lz As Long

On Error GoTo FEHLER

Set wks = Worksheets("Tabelle1") 'ANPASSEN AusgabeBlatt
strPfad = "D:\test\" 'ANPASSEN Pfad

lz = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row

strDatei = Dir(strPfad & "*.txt", vbDirectory)

Do While strDatei <> ""
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(strPfad & strDatei, 1, False, 0)
TxT = f.ReadAll
f.Close

m = 0
arrZ = Split(TxT, vbCrLf)
ReDim arrOut(1 To 1, 1 To UBou ...
  Thema: Innerhalb einer Listbox suchen 
Phelan XLPH

Antworten: 3
Aufrufe: 1315

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2009, 18:56   Titel: AW: Innerhalb einer Listbox suchen Version: Office 2003
teste mal:

in die userform:
Private rngBereich As Range

Private Sub CommandButton1_Click()
Dim zeile As Long
On Error Resume Next
zeile = 0
zeile = WorksheetFunction.Match(Val(TextBox1.Text), rngBereich.Columns(1), 0)
If zeile <> 0 Then
MsgBox Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rngBereich(zeile, 1).Resize(, rngBereich.Columns.Count))), " ")
End If
End Sub

Private Sub UserForm_Initialize()
Set rngBereich = Tabelle1.Range("A2:C15")
ListBox1.RowSource = rngBereich.Address(, , , True)
ListBox1.ColumnCount = rngBereich.Columns.Count
End Sub
  Thema: Eingabe prüfen 
Phelan XLPH

Antworten: 7
Aufrufe: 1139

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jul 2009, 15:20   Titel: AW: Eingabe prüfen Version: Office 2007
teste das mal:

Option Explicit

Const EINGABE = "01,02,03,06"

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not EINGABE Like TextBox1.Text & Chr(KeyAscii) & "*" Then KeyAscii = 0
End Sub
  Thema: Liste sortieren mit lösch bzw. verschieb Funktion 
Phelan XLPH

Antworten: 4
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Jul 2009, 07:55   Titel: AW: Liste sortieren mit lösch bzw. verschieb Funktion Version: Office 97
Dann nimm den von r.mueller
 
Seite 591 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 588, 589, 590, 591, 592, 593, 594 ... 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 Forum