Microsoft Excel

Herbers Excel/VBA-Archiv

VBA: Spalte a nach TXTzeilen suchen

Betrifft: VBA: Spalte a nach TXTzeilen suchen von: Bernd Kiehl
Geschrieben am: 04.04.2014 18:57:12

Hallo zusammen,

benötige Hilfe zu folgendem Problem.

VBA: suche in Tabelle 1 Spalte A nach Zeilen mit mindestens 3Buchstaben kopiere alle Zeilen und füge sie in Tabelle 2 Spalte E ein.

Vielen Dank im Voraus.

Gruß
Bernd

  

Betrifft: AW: VBA: Spalte a nach TXTzeilen suchen von: hary
Geschrieben am: 04.04.2014 19:07:07

Moin Bernd
Spalte A nach Zeilen mit mindestens
Du meinst doch bestimmt Zellen oder?
Die haben alle min.3 Buchstaben. ;-)



Tabelle1

 A
1ABC
2ABC34
312ABC35
412ABC

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

Braucht es mehr Input.
gruss hary


  

Betrifft: AW: VBA: Spalte a nach TXTzeilen suchen von: Bernd Kiehl
Geschrieben am: 04.04.2014 20:04:33

Hallo Hary,

hab mich etwas falsch ausgedrückt. Alle Zellen in Spalte A kopieren die nur Text enthalten und nur die kopiere und füge sie Tabelle 2 Spalte E ein.

Besser so?

Gruß
Bernd


  

Betrifft: AW: VBA: Spalte a nach TXTzeilen suchen von: hary
Geschrieben am: 05.04.2014 08:35:56

Moin Bernd
Immer noch janz schoen spaerlich. ;-)
Aber versuch mal.

Sub versuch()
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")
  For i = 1 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
    If Not IsNumeric(Cells(i, 1)) Then
     wksQ.Cells(i, 1).Copy wksZ.Cells(wksZ.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
    End If
  Next
End Sub

gruss hary


  

Betrifft: AW:korrektur von: hary
Geschrieben am: 05.04.2014 08:38:22

Moin nochmal
Hab ein "wksQ" vergessen.

Sub versuch()
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")
  For i = 1 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
    If Not IsNumeric(wksQ.Cells(i, 1)) Then
     wksQ.Cells(i, 1).Copy wksZ.Cells(wksZ.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
    End If
  Next
End Sub

gruss hary


  

Betrifft: AW: AW:korrektur von: Bernd Kiehl
Geschrieben am: 07.04.2014 17:07:29

Hallo Hary,

Danke für deine Bemühungen, klappt toll.

Gruß
Bernd


 

Beiträge aus den Excel-Beispielen zum Thema "VBA: Spalte a nach TXTzeilen suchen"